Дана последовательность чисел, вводимых с клавиатуры и оканчивающаяся нулем. Составьте программу вычисления:

a. суммы всех чисел последовательности;

b. среднего арифметического всех чисел последовательности:

c. суммы только отрицательных и суммы только положительных чисел последовательности.

Ввод нуля означает завершение ввода(он нигде не учитывается)

program test;var sum, x, counter, sumOfNegative, sumOfPositive: integer; average: real;begin   sum:=0;   average:=0;   counter:=0;   sumOfPositive:=0;   sumOfNegative:=0;   read(x);   while x <> 0 do   begin      sum:=sum+x;      average:=average+x;      counter:=counter+1;      if x > 0 then         sumOfPositive:=sumOfPositive+x   else      sumOfNegative:=sumOfNegative+x;   read(x); end;   average:=average/counter;

   writeln('Sum = ', sum);   writeln('Arithmetic average = ', average);   writeln('The sum of positive numbers = ', sumOfPositive);   writeln('The sum of negative numbers = ', sumOfNegative);   readln;end.