1 ile 100 arasındaki asal syıları bulan program.

uses crt;
var
i,a:integer;
begin
clrscr;
for i:=3 to 100 do
for a:=2 to i-1 do begin
if((i mod a)=0)then
break
else if(a=i-1)then
writeln('asal sayılar',i); end;
readln;
end.

Linkback: https://www.buyuknet.com/1-ile-100-arasindaki-asal-syilari-bulan-program-t8626.0.html