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

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.