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.
Program Pr1;
uses crt;
var i:integer;
b,c,x:real;
begin
clrscr;
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.