var i,s,a: integer;
begin
for i:=1 to 8 do
readln (a);
s:=s+a
end;
writeln;
writeln ('Среднее арифметическое: ',s/8)
end.
var i,s,a: integer;
begin
for i:=1 to 8 do
begin
readln (a);
s:=s+a
end;
writeln;
writeln ('Среднее арифметическое: ',s/8)
end.