Составьте пожалуйста алгоритм средней температуры зимних месяцев

var   i:integer;   t:array[1..3,0..31]of real; begin write('Введите температуру в декабре по дням: '); for i:=1 to 31 do   begin   readln(t[1,i]);   t[1,0]:=t[1,0]+t[1,i];   end; t[1,0]:=t[1,0]/31; write('Введите температуру в январе по дням: '); for i:=1 to 31 do   begin   readln(t[2,i]);   t[2,0]:=t[2,0]+t[2,i];   end; t[2,0]:=t[2,0]/31; write('Введите температуру в феврале по дням: '); for i:=1 to 28 do   begin   readln(t[3,i]);   t[3,0]:=t[3,0]+t[3,i];   end; t[3,0]:=t[3,0]/28; writeln('Средняя температура в декабре: ',t[1,0]); writeln('Средняя температура в январе: ',t[2,0]); writeln('Средняя температура в феврале: ',t[3,0]); writeln('Средняя температура зимой: ',(t[1,0]+t[2,0]+t[3,0])/3); end.