{ funkcia zisti ci cislo je prvocislo }
function prvocislo(x:integer):boolean;
var s:real;
d:integer;
begin
prvocislo:=false;
s:=sqrt(x);
d:=1;
repeat
d:=d+1;
until (x mod d=0) or (d>=s);
if x mod d<>0 then prvocislo:=true;
end;
begin
clrscr;
write('Kolko prvocisel mam vypisat ? : ');
read(n);
write('2, ');
p:=1;
x:=1;
repeat
x:=x+1;
if prvocislo(x) then
begin
p:=p+1;
write(x,', ');
end;
until p=n;