（哥德巴赫猜想）哥德巴赫猜想是指，任一大于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
      if  i + i = ()    then
      begin
        tmp := true;
        break;
      end;
    if tmp then
      inc(ans);
  end;
  writeln(ans);
end.

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