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

program paralepiped;

var
  s, n: integer;

begin
  s := 0;
  n := 0;
  repeat
    write('введите число 0-выход');
    readln(x);
    s := s + x;
    n := n + 1;
  until x = 0;
  writeln('sr. arifm-e=', s / (n - 1));

end.