(паскал) среди натуральных трехзначных числ вывести те, сумма квадратов цифр которых равна 17

Var
   A:integer;
Begin
For A:= 100 to 999 do
    if Sqr(A div 100)+Sqr((A div 10) mod 10)+Sqr(A mod 10) = 17 then
       Write(A,' ')
End.

Результат работы программы:

104 140 223 232 322 401 410