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

Описание:

введем массив из температур - w,

будем вводить значения температур с поддержкою цикла и сходу обретать сумму s, потом найдем среднее значение sr_t и выведем его значение, отведя для этого 5 знакомест, из которых 2 после запятой - sr_t:5:2.

program sr_temp;

var s,i:integer; sr_t:real;

     w: array [1..7] of integer;

begin

 s:=0;

  for i:=1 to 7 do

    begin

       readln(w[i]); s:=s+w[i];

    end;

 sr_t:=s/7;

 writeln('Средняя температура за неделю - ',sr_t:5:2);

end.