begin
e:=1;
for i:=6 to 100 do
if i mod 2=0 then
for b:=3 to i div 2 do
begin
e:=1;
for c:=2 to round(sqrt(b)) do
if b mod c=0 then e:=0;
if e=1 then
begin
f:=i-b;
for g:=2 to round(sqrt(f)) do
if f mod g=0 then e:=0;
if (e=1)and(f>2)and(b>2)then
begin writeln(i,'=',b,'+',f);break;end;
end;
end;
end.
我這個程序每個素數都輸出壹組，如果要多組，就把break刪掉