Напишете программу которая вычисляет среднюю за неделю температуру воздуха.Исходные данные вводятся с клавиатуры. ПОЖАЛУЙСТА

begin
  var a:=Arr('Понедельник','Вторник','Среда','Четверг','Пятница',
      'Суббота','Воскресенье');
  Writeln('Введите температуру');
  var t:=new real[7];
  for var i:=0 to 6 do begin Write(a[i],'>> '); Read(t[i]) end;
  Writeln('Средняя температура за неделю: ',t.Average:0:2)
end.


Понедельник>> 12
Вторник>> 10
Среда>> 16
Четверг>> 18
Пятница>> 17
Суббота>> 16
Воскресенье>> 14
Средняя температура за неделю: 14.71