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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.