По информатике.паскаль люди добрые, решить ,завтра зачёт по информатике,нужно эту решить.вот условие: вывести на экран все трехзначные числа,сумма квадратов цифр которых равна 105. убедительная решить через mod,версия паскаля pascalabc.net

Var  i: integer;
begin
  for i:=100 to 999 do
  begin 
  if sqr(i mod 10)+sqr(i div 10 mod 10)+sqr(i div 100)=105 
  then 
      writeln(i); 
 end;
end.

Вывод:
458
485
548
584
845
854