Помогите составить алгоритм!

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

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.