uses    crt;
var     n,i,j,k: longint;
function nto(n: longint): boolean;
begin
        if n < 2 then exit(false);
        for i:=2 to trunc(sqrt(n)) do
                if n mod i = 0 then exit(false);
        exit(true);
end;
begin
        clrscr;
        readln(n);
        for i:=1 to n do
                for j:= i + 1 to n do
                        for k:= j + 1 to n do
                                begin
                                        if (i + j + k = n) and ((nto(i) = true) and (nto(j) = true) and (nto(k) = true)) then write(i,#32,j,#32,k);
                                end;
        readln
end.

uses crt;
var i,j,k,n,t:integer;

function kt(n:integer):boolean;
var i,s:integer;
begin
s:=0;
for i:=1 to n do
 if n mod i=0 then s:=s+1;
if s=2 then exit(true) else exit(false);
end;

procedure tach(n:integer);
var i,j,k:integer;
begin
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
 if(kt(i)) and(kt(j)) and (kt(k)) and(i+j+k=n) then
 begin
  write(i,' ',j,' ',k);
  exit;
 end;
end;
begin
clrscr;
write('nhap so tu nhien bat ky:');readln(n);
tach(n);
readln;
end.