var i: integer;
s: real;
a: array [1..7] of real;
d: array [1..7] of string;
BEGIN
s:=0;
writeln ('Введите температуру');
for i:=1 to 7 do begin
if i=1 then write('Понедельник>>');
if i=2 then write('Вторник>>');
if i=3 then write('Среда>>');
if i=4 then write('Четверг>>');
if i=5 then write('Пятница>>');
if i=6 then write('Суббота>>');
if i=7 then write('Воскресенье>>');
readln (a[i]);
s:=s + a[i];
end;
s:=s/7;
writeln('Средняя температура за неделю: ', s:0:2);