Program zadacha;
uses crt;
var a:array[1..10]of integer;
i,k,sum:integer;
begin
i:=0; k:=0;
repeat
inc(i);
readln (a[i]) ;

inc(k) ;
until a[i]=0;
sum:=0;
for i:=1 to k do
sum:=sum +a[i];

writeln('sr_znach ',sum/k);
end.

Помог отметь как лучший ответ

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

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 r0 do
    begin
      write("Ввод:") ; 
      readln (r