Помогите составить алгоритм!
Составьте алгоритм(в паскалена алгоритмическом языке), в котором вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних месяцев, осенних месяцев.

var
  k: array [1..12] of double;
  i: byte;

begin
  for i := 1 to 12 do
  begin
    write('Enter the ', (new System.DateTime(1, i, 1)).toString('m').Replace('1', ''), 'temperature: ');
    readln(k[i]);
  end;
  writeln('1) ', (k[12] + k[1] + k[2]) / 3);
  writeln('2) ', (k[3] + k[4] + k[5]) / 3);
  writeln('3) ', (k[6] + k[7] + k[8]) / 3);
  writeln('4) ', (k[9] + k[10] + k[11]) / 3);
end.