如下,能给满意回答吗,谢谢
program prime;
var
a : array [2..1000] of boolean;
i , p : integer;
begin
read(n);
for i:=2 to n do a[i]:=true; {a数组初始化,全部置true}
for i:=2 to n div 2 do
if a[i] then begin { a[i] 相当于 a[i]=true }
p:=i*2;
while p
再问： 首先谢谢你的回答，其次我想要的是素数的个数，望能回答。。
再答： sorry，那：program prime;
var
a : array [2..1000] of boolean;
i , p ，x: integer;
begin
read(n);
x:=0;
for i:=2 to n do a[i]:=true; {a数组初始化，全部置true}
for i:=2 to n div 2 do
if a[i] then begin { a[i] 相当于 a[i]=true }
p:=i*2;
while p
