Дана непустая последовательность целых чисел , оканчивающимся нулем. Найти: а) сумму всех чисел последовательности
б) количество всех чисел последовательности
Решить задачу используя циклическую конструкцию while .
​

var a, s,k: integer;

begin

 s := 0;

 k:=0;

 readln (a);

 while a <> 0 do

 begin

   k:=k+1;

   s := s + a;  

   readln(a);

 end;

 writeln('Сумма всех чисел последовательности ', s ,' Количество всей числ последовательности ' ,k);

end.  

11000 (2) = 30 (8) = 18 (16) = 24 (10)

100111 (2) = 47 (8) = 27 (16) = 39 (10)

10100011 (2) = 243 (8) = а3 (16) = 163 (10)

101010101010 (2) = 5252 (8) = (16) = 2730 (10)

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);