Написать на паскале программу. вывести на экран все трехзначные числа, сумма квадратов цифр которых равна 105. в программе должен быть контроль, является ли число трехзначным.

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  for var i:=1 to 9 do
    for var j:=0 to 9 do
      for var k:=0 to 9 do
        if i*i+j*j+k*k=105 then Write(i,j,k,' ');
  Writeln
end.

Результат
458 485 548 584 845 854