Написать программу, вычисляющую среднее арифметическое последовательности положительных чисел. Числа вводятся с клавиатуры, ввод нуля – это признак конца последовательности — Pascal(Паскаль)

program zzz;

var
  z, s, i: real;

begin
  s := 0;
  z := 1;
  writeln('Введите числа');
  while z > 0 do
  begin
    readln(z);
    s := s + z;
    i := i + 1;
  end;
  writeln('Среднее арифметическое', (s / i):0:3);

end.