为什么60分

var
 i,j,k,n:longint;
 f:array[2..20000]of boolean;
begin
 readln(n);
 for i:=2 to n do
  if not f[i] then 
   for j:=2 to n div i do
    f[i*j]:=true;
 for i:=2 to n do
  if not f[i] then
   for j:=2 to n do
    if not f[j]and not f[n-i-j] then
     begin
      writeln(i,' ',j,' ',n-i-j);
      exit;
     end;
end.