Определите среднее арифметическое элементов последовательности, завершающейся числом 0. Число 0 в последовательность

var    a, sum, i : integer; // объявляем переменные целочисленного типа.begin  writeln (\'введите последовательность положительных чисел, окончание ввода - ноль:\');  a:= 1;     while a <> 0 do // начало цикла.        begin           readln (a); // считываем число, введенное с клавиатуры.           sum := sum + a; // считаем сумму чисел.             if (a <> 0) then // если введен не 0, то увеличиваем счетчик количества чисел.                 i := i + 1;             end;      write (\'Среднее арифметическое введенных чисел равно: \', sum / i); //вывод ответа на экран.end.