uses crt;
var a,b,c,n:longword;
k:boolean;
begin
clrscr;
readln(n);
k:=false;
for a:=1 to n-2 do
for b:=1 to n-a-1 do
begin
c:=n-a-b;
if (a+b>c) and (b+c>a) and (a+c>b) then
begin
write(a,' ',b,' ',c,#13#10);
k:=true;
end;
end;
if k=true then write('CO')
else writeln('KHONG');
readln;
end.