Program Pr1;uses crt;var i:integer; b,c,x:real;beginclrscr;
for i:=100 to 999 do begin b:=i div 10; x:=i mod 10; b:=sqr(b)-sqr(x); if b=i then writeln(b); end;end.