var a,i,j,k:longint;
begin
read(a);
for i:=1 to a do
for j:=1 to a do
for k:=1 to a do
if (i+j+k=a)and(i<=j)and(j<=k) then writeln(a,'=',i,'+',j,'+',k);
end.
/**************************************************************
	Problem: 1516
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/