Информатика, написать программу на языке паскаль, найти среднеарифмитическую температуру за неделю

var

sum : real; / / объявление переменной.

i, t : integer; / / объявление переменных целочисленного типа.

begin

writeln ('Введите температуру за каждый день недели:'); / /вывод строки на экран.

for i : = 1 to 7 do / / начало цикла.

begin

readln (t); / / считываем значение температуры за день.

sum : = sum + t; / / считаем сумму температур.

end;

writeln ('Средняя арифметическая температура за неделю равна: ', round (sum / 7, 2)); / / ответ.

end.