Program z1;
Var i,n,b:Integer; sum:real;
Begin
 Write('Введите кол-во тестов: ');
 Read(n);
 sum:=0;
 For i:=1 to n do
  Begin
   Write('Введите оценку за ',i,' опрос: ');
   Read(b);
   sum:=sum+b;
  end;
 WriteLn('Среднее значение оценки в ',i,' опросах = ',sum/n);
ReadLn;
End.