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