求大神帮忙看看，为什么只有30PASCAL

｛求大神看一下

为什么只有30分

代码：｝

var n,i,j,k:longint;
function prime(a:longint):boolean;
var i:longint;
begin
 if a=2 then exit(true);
 for i:=2 to a do
 if a mod i=0 then exit(false) else exit(true);
end;
begin
 read(n);
  for i:=2 to n do
   for j:=2 to n do
    for k:=2 to n do
    begin
     if (i+j+k=n)and(prime(i))and(prime(j))and(prime(k)) then 
begin
write(i,' ',j,' ',k);
halt;
end;
end;
end.
//谢谢