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

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