Дано натуральное число. определить сумму его цифр, больших 5

program zz1;

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

begin

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

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

s:=0; / / задаем начальное значение для количества

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

begin

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

if k > 5 then s:=s + k; / / проверяем больше она 5 и считаем ее

n:=n div 10; / / отбрасываем последнюю цифру из числа

end;

writeln (' сумма цифр в числе больших 5 = ', s); / / выводим ответ

end.