jzxx1087歌德巴赫猜想

题目描述
任一个大于等于4的偶数都可以拆分为两个素数之和。

输入
一个整数n( 4 <= n <= 200 ）

输出
将小于等于n的偶数拆分为2个质数之和，列出所有方案！

样例输入
10
样例输出
4=2+2
6=3+3
8=3+5
10=3+7
10=5+5

满分代码：
program ex_1087;
var n,m,i,s1,s2:integer;
function pd(x:integer):boolean;
var i,j:integer;
begin
i:=2;
while(x mod i<>0) and (i<x) do inc(i);
if i=x then pd:=true else pd:=false;
end;
begin
readln(m);
n:=4;
while n<=m do
begin
for i:=2 to n div 2 do
begin
s1:=i;
s2:=n-i;
if (pd(s1)=true) and (pd(s2)=true) then writeln(n,'=',s1,'+',s2)
end;
n:=n+2;
end;
end.