Для !
,
задано натуральное число n. заменим это число суммой квадратов его цифр. какое число получается в результате это операции?
огромное за !

var

  s,n,m :integer;

begin

write('введите натуральное число: ');

readln(n);

s:= 0;

repeat

  m:= n mod 10;

  s:= s + m*m;

  n:= n div 10;

until n = 0;

writeln('сумма квадратов цифр: ',s);

end.