Program Dafnochka;
uses crt;
var
  r,sum: real;
  k:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  sum:=0;
  k:=0;
  r:=1;
  writeln('Введите ненулевое число');
  writeln('(или введите 0 для конца последовательности) ');
  while r<>0 do
    begin
      write("Ввод:") ;  
      readln (r);
      sum:=sum+r;
      k:=k+1;  
    end;
  writeln();
  writeln('Всего введено ',k-1,' чисел');
  writeln('Среднее значение равно ',sum/(k-1));
end.

Проверено - работает на Паскаль АВС