哥德巴赫猜想的命题之一是：大于6的偶数等于两个素数之和。编程将6~100所有偶数表示成两个素数之和。
var
i:integer;
function qiuhe(x:integer):integer;
var p,q:integer;
flagp,flagq:boolean;
begin
p:=1;
repeat
p:=p+1;
q:=x-p;
flagp:=true;
for i:=2 to p-1 do
if p mod i=0 then flagp:=false;
flagq:=true;
for i:=2 to q-1 do
if q mod i=0 then flagq:=false;
until flagp and flagq;
qiuhe:=p;
end;
begin
for i:=6 to 100 do
if i mod 2=0 then
writeln(i,*=*,qiuhe(i),*+*,i-qiuhe(i));
readln;
end.

你为什么要用布尔量啊，别的方法不也行吗