1.Дано натуральное n-значное число. Верно ли, что сумма его цифр больше 10.
2.Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности.

А 2

Помоги

Пож

program posl;var i,count,s,num : integer;begin s:=0; count:=0; read(num); while(num <> 0) begin count := count+1; a[count] := num; end; writeln(count);end.

Должно работать

uses crt;var a,x:integer; i,s:integer;begin writeln('введите целое число'); readln( a ); x:=a; s:=0; while ( x<>0 ) do begin   s := s + (x mod 10);   x := x div 10; end; writeln( 'Сумма цифр числа ',a,' = ', s ); if s=10 then  writeln('Верно')  else  writeln('Неверно');end.