program premier;
var c,l,n,i: integer;
begin 
  write('Entrez un nombre différent de 1: ');
  read(n);
  writeln('Les nombres premiers inferieurs à ',n,' sont: ');
  
  for i:=2 to n do 
  begin
     
     c:=0;
     for l:=1 to i do 
      begin
        if i mod l=0 then  c:= c+1;
      end;
    if c<=2 then  write(i,' ');
  end;
     
end.