Нахождение первых 100 простых чисел

program PR26_2;
{íàéòè 100 ïåðâûõ ïðîñòûõ ÷èñåë}
uses crt;
var n, i, ch, c: integer;
begin
for i:= 1 to n do
   begin
   ch:=0;
   for c:=1 to n do if n mod c=0 then ch:=ch+1;
   if ch=2 then write(n, '  ');
   end;
end.

program PR26_2;
uses crt;
var n, i, ch, c,k: integer;
begin
i:=1;
repeat
inc(i);
ch:=0;
 for c:=1 to i do
 if i mod c=0 then ch:=ch+1;
 if ch=2 then
 begin
  inc(k);
  write(i, '  ');
 end;
until k=100;
end.

program PR26_2;
{найти 100 первых простых чисел}
uses crt;
var n, i, ch, c: integer;
    f:boolean;
begin
n:=1;
ch:=2;
write(ch:4);
while n<100 do
 begin
  ch:=ch+1;
  f:=true;
  i:=2;
  while(i*i<=ch)and f do
  if ch mod i=0 then f:=false
  else i:=i+1;
  if f then
   begin
    write(ch:4);
    n:=n+1;
   end;
 end;
end.