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

program zz1;
var i, k, n, k1: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 // организуем цикл, в котором переберем все числа последовательности
if (m[i] mod 3 = 0)and(m[i]lt;gt;0) then begin k1:=k1 + m[i];k:=k+1;end; // получаем сумму положительных чисел
writeln( среднее арифметическое чисел последовательности кратных трем = , k1/k:5:2);
end.