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.
