Ответ:

var

a, n, s: integer;

begin

repeat

n := n + 1;

Write('введите число №', n, ': ');

read(a);

s := s + a;

until a = 0;

if n > 1 then

Writeln('Среднее арифметическое= ', s / (n - 1))

else Writeln('Ни одного числа не введено');

end.