Ввести натуральное число и определить, верно ли, что сумма его цифр равна10.

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; / / прибавляем ее к сумме

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

end;

if s = 10 / / проверяем, если сумма цифр равна 10, то

then writeln (' Верно ') / / выводим один ответ

else writeln (' Неверно '); / / иначе, выводим другой ответ

end.