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 ****************************************************************/