Дана непустая последовательность целых чисел , оканчивающимся нулем. Найти: а) сумму всех чисел последовательности
б) количество всех чисел последовательности
Решить задачу используя циклическую конструкцию 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.