1. Дано натуральное n-значное число. Верно ли, что сумма его цифр больше 10.

2. Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности.

Uses crt;

var a, x:integer;

i, s:integer;

begin

writeln ('введите целое число') ;

readln (a) ; x:=a;

s:=0;

while (x0) do

begin

s : = s + (x mod 10) ;

x : = x div 10;

end;

writeln ('Сумма цифр числа ', a,' = ', s) ;

if s=10 then

writeln ('Верно')

else

writeln ('Неверно') ;

end.