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