var a,b:longint; begin read(a,b); if a>b then write(a*a) else write(b*b); end. /************************************************************** Problem: 1644 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/