var a:array of integer;
    n,i:integer;
    sr: double;
begin
Writeln('Размерность массива:');
readln(n);
setlength(a,n);

for i:=0 to n-1 do begin
  write('a[',i,']=');
  readln(a[i]);
end;

sr:=0;
for i:=0 to n-1 do
  sr:=sr+a[i];
writeln('Среднее значение=',sr/n:0:0);
end.