на2

const n = 10;

var a: array[1..n] of real;
    i,k: integer;
    S,max: real;

begin
    for i := 1 to n do read(a[i]);
    max := a[1];

    for i := 2 to n do
    if(a[i] > max) or (a[i] = max) then
    begin
      max := a[i];
      inc(k);
    end;

    S := (max*k)/k;
    writeln(S)
end.