uses crt;
var i,j,dem:integer;
begin
clrscr;
writeln('Cac so nguyen to tu 2 den 10');
for i:=2 to 10 do
begin
count:=0;
for j:=2 to i do
begin
if ((i mod j) = 0) then dem := dem + 1;
end;
if (dem = 1) then writeln(i);
end;
readln;
end.

#Nếu sai ib vào link fb
https://www.facebook.com/nangnghean8201