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

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018Внимание! Если программа не работает, обновите версию!begin  // только у чисел 100 до 319 квадрат первых двух цифр трехзначный.   var i:=10;  while i<=31 do begin    var j:=0;    repeat      if i*i-j*j=10*i+j then Print(10*i+j);      j+=1    until j>9;    i+=1  endend.