uses crt;
var i, j, n, d : integer;
begin
clrscr;
write('Nhap so n : '); readln(n);
d := 0; write('Cac so nguyen to : ');
i := 1; while i <= n do begin
for j := 1 to i do if i mod j = 0
then d := d + 1; if d = 2 then
write(i,' '); d := 0; i := i + 1; end;
readln
end.