100_200之内的偶书写成俩个素数之和.

var
p,q,i:longint;

function ok(x:longint):boolean;
var i:longint; f:boolean;
begin
f:=true;
for i:=2 to round(sqrt(x)) do
if x mod i=0 then begin f:=false;break;end;
ok:=f;
end;

begin
for i:=100 to 200 do
begin
p:=1;
repeat
inc(p);q:=i-p;
until (ok(p))and(ok(q));
end;
end.