Написать программу в паскале по вычислению средний температуры за неделю.Исходные данные вводятся с клавиатуры: Понедельник 12 градусов Вторник 10 Среда 16 Четверг 18 Пятница 17 Суббота 16 Воскресенье 14

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.