var
i:longint;
sr,ch: real;
begin
sr:=0;
for i := 1 to 15 do
readln(ch);
sr:=sr+ch
end;
sr := sr/15;
writeln('ответ: ',sr);
end.
