Решите пожалуйста задачу на паскале!!! найти все трехзначные числа которые можно представить разностью между квадратом числа образованного первыми двумя цифрами и квадратом третьей цифры.

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.