uses crt; var i,n:longint; function nt(a:longint):boolean; var i:longint; begin i:=2; while a mod i<>0 do inc(i); nt:=i=a; end; begin clrscr; write('n=');readln(n); if n<2 then writeln('Khong co so nguyen to nao be hon n!') else for i:=2 to n do if nt(i) then write(i,';'); readln end.