пожалуйста найдите ошибку, найти среднее арифметическое Опции

[eldar219]

program pr;
              Var a,n,S:integer;
              sr:real;
              begin
              n:=0;
              S:=0;
              writeln('Введите a');
              readln(a);
              while a<>0 do
              begin
              inc(n);
              S:=S+a;
              read(a);
              end;
              sr:=S/2;
              readln(sr);
              writeln ('sr=',sr:10:4);
              end.

[Ozzя]

Var
  a,n:integer;
  S,sr:real;
begin
   n:=0;
   S:=0;
   repeat
     writeln('??????? a');
     readln(a);
     S:=S+a;
     inc(n);
   until a=0;
   sr:=S/(n-1);
   writeln ('sr=',sr:10:4);
end.

[yuivanenko]

program pr;
              Var a,n,S:integer;
              sr:real;
              begin
              n:=0;
              S:=0;
              writeln('Введите a');
              readln(a);
              while a<>0 do
              begin
              inc(n);
              S:=S+a;
              read(a);
              end;
              sr:=S/2;
              readln(sr);
              writeln ('sr=',sr:10:4);
              end.

Эльдар, у тебя здесь целых две ошибки:
1. sr:=S/2; нужно делить не не 2, а на n
2. readln(sr); -вообще не нужна, т.к. она просит ввести среднее арифметическое и затирает то число, что ты нашел. Удачи!!!