Написать программу в паскале по вычислению средний температуры…

var t: array [1… 7] of real; //Массив температуры за неделю s: real; i: integer; begin s: =0; for i: =1 to 7 do //Вводим температуру за каждый день begin writeln ('Введите температура в ', i, ' день недели'); readln (t[i]); s: =s+t[i]; end; writeln ('Средняя температуры за неделю: ', s / 7:0:5); {Выводим среднюю температуру за неделю с округлением до 5 знаков после запятой}end.