Дано натуральное число. определить сумму квадратов его цифр паскаль цмкл while

program zz1;

var s, n, k:integer; / / задаем переменные целого типа

begin

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

read (n); / / вводим с клавиатуры заданное натуральное число

s:=0; / / задаем начальное значение для суммы

while n > 0 do / / организуем цикл, пока в числе есть цифры

begin

k:=n mod 10; / / получаем последнюю цифру

s:=s + k * k; / / возводим ее в квадрат и прибавляем к сумме

n:=n div 10; / / отбрасываем ее

end;

writeln (' сумма квадратов цифр натурального числа = ', s); / /выводим ответ

end.