Напиши программу которая вычисляет среднюю за неделю температуру воздуха исходные данные с клавиатуры

var

a, b, c, d, e, f, g, sr: real;

begin

write ('Понедельник: ');

read (a);

write ('Вторник: ');

read (b);

write ('Среда: ');

read (c);

write ('Четверг: ');

read (d);

write ('Пятница: ');

read (e);

write ('Суббота: ');

read (f);

write ('Воскресенье: ');

read (g);

sr : = (a + b + c + d + e + f + g) / 7;

writeln ('Средняя температура за неделю: ', sr:1:2);

end.