1.（哥德巴赫猜想）哥德巴赫猜想是指，任一大于2的偶数都可写成两个质数的和。迄今为止，这仍然是一个著名的世界难题，被誉为数学王冠上的明珠。试编写程序，验证任一大于2且不超过n的偶数都能写成两个质数之和。
const
size=1000;
var
n,r,I,j,k,ans:integer;
p：array[1..size] of integer;
tmp:Boolean;
begin
readln(n);
r:=1;
p[1]:=2;
for i:=3 to n do
begin
= ①
；
for j:=1 to r do
if I mod ② =0
then
begin
tmp:=false;
break;
end;
if tmp then
begin
inc(r);
③ ;
end;
end;
ans:=0;
for i:=2 to (n div 2) do
begin
tmp:=false;
for j:=1 to r do
for k:=j to r do
if i+i= ④
then
begin
tmp:=true;
break;
end;
if tmp then
inc(ans);
end;
writeln(ans);
end.
若输入n为2010，则输出 = ⑤
时表示验证成功，即大于2且不超过2010的偶数都满足哥德巴赫猜想。
求解，求思路I

请至少把可以看的代码发到paste.ubuntu.com再来求解