(哥德巴赫猜想)哥德巴赫猜想是指，任一大于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 
            tmp:=true          ; 
    for j:=1 to r do 
       if I mod        p[j]       =0  then 
         begin 
            tmp:=false; 
            break; 
         end; 
    if tmp then 
       begin 
          inc(r);                p[r]:=i     ; 
       end; 
   end; 
   ans:=0; 
   for i:=2 to (n div 2) do 
     begin 
       tmp:=false; 
       for j:=1 to r do 
          if  i+i=   p[j]+p[k]    then 
          begin 
            tmp:=true; 
            break; 
          end; 
     if tmp then 
        inc(ans); 
  end; 
  writeln(ans); 
end.

若输入n为2020，则输出   1004    时表示验证成功，即大于2且不超过2010的偶数都满足哥德巴赫猜想。