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

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.