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

program zz1;
var i, k, n, k1, k2:integer; // задаем переменные целого типа
m:array [1..10000] of integer;
begin
read(m[1]);i:=1;
while m[i]lt;gt;0 do // вводим числа последовательности с клавиатуры до тех пор, пока не введем ноль, записываем их в массив
begin
i:=i+1;
read(m[i]);
end;
n:=i;
for i:=1 to n do // организуем цикл, в котором переберем все числа последовательности
begin
k:=k + m[i]; // получаем сумму всех чисел последовательности
if m[i] gt; 0 then k1:=k1 + m[i]; // получаем сумму положительных чисел
if m[i] lt; 0 then k2:=k2 + m[i]; // получаем сумму отрицательных чисел
end;
writeln( сумма чисел последовательности = , k); //выводим ответ
writeln( среднее арифметическое чисел последовательности = , k/n:5:2);
writeln( сумма положительных чисел последовательности = , k1);
write( сумма отрицательных чисел последовательности = , k2);
end.