var a,b,i,j,k:longint;
begin
read(a);
for i:=0 to a div 2 do
begin
b:=a-i;
writeln(a,'=',i,'+',b);
end;
end.
/**************************************************************
	Problem: 1515
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/