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

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.

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.