Var pn, vt, sr, ct, pt, sb, vs: Integer;
res: real;
begin
writeln('Введите температуру');
writeln('Понедельник >> '); readln(pn);
writeln('Вторник >> '); readln(vt);
writeln('Среда >> '); readln(sr);
writeln('Четверг >> '); readln(ct);
writeln('Пятница >> '); readln(pt);
writeln('Суббота >> '); readln(sb);
writeln('Воскресенье >> '); readln(vs);
res := (pn + vt + sr + ct + pt + sb + vs) / 7;
writeln(res:0:2);
end.