Из бака выходят две трубы. Через одну из них вытекает 4/5 л воды в минуту, а через другую — в 1,5 раза больше. Полный бак опорожняется через обе трубы за 3 1/3 мин.

Var
 a,sum,i,n:integer;
begin
 readln(n);
 if n<=0 then
  writeln('N не натуральное число')
 else
 begin
  sum:=0;
  for i:=1 to n do
  begin
   read(a);
   sum:=sum+a;
  end;
   writeln(sum/n);
 end;
end.