uses crt;
var n,i:integer; d:text;
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;
assign(d,'input.pas');reset(d);
readln(d,n);
close(d);
assign(d,'output.pas');rewrite(d);
for i:=2 to n do if nt(i) then writeln(d,i);
close(d);
end.
cho mình tả lời hay nhì nha hihihi