program get;
var
i,j,m:longint;
p:array[1..50000] of boolean;
begin
fillchar(p,sizeof(p),true);
p[1]:=false;p[50000]:=false;
i:=2;
while i<50000 do
begin
j:=i*2;
while j<50000 do
begin
p[j]:=false;
j:=j+i;
end;
inc(i);
end;
for i:=1 to 50000 do
begin
if p[i]=true then
begin
inc(m);
a[m]:=i;
end;
end;
write(m);
for i:=1 to m do write(a[i]:7);
end.
谢谢！

似乎是编译错误，还要再开一个叫a的longint型数组
（其实不开数组也完全可以的）