Пожалуйста!!!! Срочно!!! 25 баллов
Составьте алгоритм, в котором вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних месяцев, осенних месяцев. Данные ниже.
месяц 1-2-3-4-5-6-7-8-9-10-11-12
Температура -21; -18 4; -7,5; 5,6;10 ;18; 22,2; 24 ;17 ; 5,4; -7;-18

Спасибо большое!!

program prog;uses crt;vara:array[1..100] of real;m:integer;s1, s2, s3, s4:real;begin;for m:=1 to 12 dobegin     write('В месяц ',m,' температура t = ');     readln(a[m]);end;s1:=(a[12]+a[1]+a[2])/3;s2:=(a[3]+a[4]+a[5])/3;s3:=(a[6]+a[7]+a[8])/3;s4:=(a[9]+a[10]+a[11])/3;writeln('Средняя температура зимних месяцев = ', s1:0:3);writeln('Средняя температура весенних месяцев = ', s2:0:3);writeln('Средняя температура летних месяцев = ', s3:0:3);writeln('Средняя температура осенних месяцев = ', s4:0:3);end.