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.