nombre premier version 2

program premier;
uses wincrt;
var j,r,i:integer;
begin
for j:=1 to 100 do {c’est le meme traitement ici, juste avec l’ajout de la boucle for}
begin
r:=0;
for i:=1 to j do
if j mod i = 0 then r:=r+1;

if r=2 then write(j,' ');
end;
end.