var i,a,b:longint; begin for i:=11 to 99 do begin a:=i mod 10; b:=i div 10; if a+b+a*b=i then writeln(i); end; end. /************************************************************** Problem: 1722 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/