Дана таблица значений среднемесячных температур в течение года составит программу на pascal в которой вычесляютсь четыре велечины: среднее температуры зимних месяцев весенних месяцев летних и осенних

var a:array[1..12]of real; i:integer; s1,s2,s3,s4:real; begin   for i:=1 to 12 do   begin   writeln('Введите среднемесячную температуру за ',i,' месяц:');   read(a[i]);   if i<=3 then s1:=s1+a[i] else   if (i>3)and(i<=6) then s2:=s2+a[i] else   if (i>6)and(i<=9) then s3:=s3+a[i] else   s4:=s4+a[i];   end;    writeln('Средняя температуры зимних месяцев: ',s1/3);   writeln('Средняя температуры весенних месяцев: ',s2/3);   writeln('Средняя температуры летних месяцев: ',s3/3);   writeln('Средняя температуры осенних месяцев: ',s4/3); end.