pascal语言:输入一个正整数n,输出n以内所以素数

var
i,j,n:longint;
z:boolean;
begin
readln(n);
writeln(2);
for i:=3 to n do begin
z:=true;
for j:=2 to i-1 do
if i mod j=0 then z:=false;
if z=true then writeln(i);
end;
end.
未检验,错了就追问