خوارزمية الاعداد الاولية

[OM-A]

سلام و عليكم و رحمة الله

تفضل اخي


program Welcome;
uses wincrt;
var s,n,i,j:integer;
begin
Writeln('donnis le valur n');
readln(n);
for i:=2 to n do
begin
s:=0;
for j:=1 to i do
if(i mod j=0) then
s:=s+1;
if(s=2)then
writeln(i);
end;

end.

بالتوفيق