var a,b,c:longint; begin read(a,b); c:=a*b; if a=b then begin writeln('Y');write(c);end else begin writeln('N');write(c);end; end. /************************************************************** Problem: 1655 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/