program funct;
uses crt;
var tmp, sum, i:integer;
begin
sum:= 0;
for i:= 1 to 7 do
begin
writeln('Day= ', i);
readln(tmp);
sum:= sum +tmp;
end;
writeln('Srednja tenperatura za 7 dney= ', sum/7:2:2);
readln;
end.