Bài 1:In ra các số nguyên tố nhỏ hơn 100(làm pascal) Theo dạng for do Bài 2:In ra số nguyên tố có 2 chữ số

var j,i,d:integer;

begin

for j:=10 to 99 do 

begin

if j mod i = 0 then d:=d+1;

if d:=2 then writeln(j);

end;

readln;

end.

b2.

var j,i,d:integer;

begin

for j:=2 to 99 do 

begin

if j mod i = 0 then d:=d+1;

if d:=2 then writeln(j);

end;

readln;

end.