Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10. Пример: Введите число >= 0: Введите число >= 0: -234 1233 Нужно положительное число. Нет Введите число >= 0: 1234 Да решение паскаль.

program SumOfDigits;

var

number, sum: integer;

begin

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

read(number);

if number < 0 then

begin

writeln('Нужно положительное число. Нет');

exit;

end;

sum := 0;

while number > 0 do

begin

sum := sum + number mod 10;

number := number div 10;

end;

if sum = 10 then

writeln('Да')

else

writeln('Нет');

end.