Programalama > PASCAL

uses  crt;
var
s,i,f,min,a:integer;
t:char;
k:array[1..100] of integer;
begin
min:=4;
k[1]:=1;
k[2]:=2;
k[3]:=3;


s:=3;

for i:=1 to 100   DO

for a:=min to min+10 do
begin

for f:=1 to s do

if a mod k[f] <> 0 then begin s:=s+1;   k[s]:=a; end;

end;
min:=min+10;
clrscr;
Write('asal sayilar bulundu(g&#8221;r&#129;nt&#129;lemek i&#8225;in bir tusa basiniz');
t:=readkey;
for i:=1 to s do
writeln(k[s]);

readln;
end.