n простих чисел

uses crt;
Var s,n,k,i:word; p:boolean;
Begin
clrscr;
write('Vvedit N - ');
readln(k);
 n:=1; s:=0;
 repeat
   n:=n+1;
   p:=false;
   for i:=2 to n div 2 do
      if n mod i=0 then p:=true;
   if not p then
    begin
      write(n,' '); s:=s+1;
    end;
 until s=k;
 readln;
end.