Склавиатуры вводится целое число от 1 до 999. напиши программу, которая выводит "да", если сумма цифр этого числа больше 10, и "нет" в остальных случаях.

PascalABC.NET

begin

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

 var s := 0;

 while n > 0 do

 begin

   s += n mod 10;

   n := n div 10;

 end;

 if s > 10 then

   Println('Да')

 else

   Println('Нет')

end.