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

program zz1;

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

begin

write( введите естественное число );

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

s:=0;

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

begin

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

s:=s + k; // добавляем ее к сумме

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

end;

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

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

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

end.