任意一个大于6的整数可被分解成3个素数,求这三个素数（新哥德巴赫猜想）Pascal语言

任意一个大于6的整数可被分解成3个素数,求这三个素数（新哥德巴赫猜想）Pascal语言
任意一个大于6的整数可被分解成3个素数,求这三个素数（新哥德巴赫猜想）Pascal语言

任意一个大于6的整数可被分解成3个素数,求这三个素数（新哥德巴赫猜想）Pascal语言
var
t,tt:longint;
function prime(x:integer):boolean;
var
i:longint;
begin
if x=1 then prime:=false
else if x=2 then prime:=true
else
begin
prime:=true;
i:=2;
while (i