Известны данные о количестве осадков, выпавших за каждый месяц года.

[Genius94]

Известны данные о количестве осадков, выпавших за каждый месяц года. Найти общее число осадков, выпавших в марте, июне, сентябре и декабре.
помогите плиз.в turbo pascal.

[McFrey]

Держи на "скорую руку"

const N=12;
var
  a:array [1..N] of integer;
  i,sum: integer;
  
begin
   for i:=1 to N do
    begin
    writeln('Введите количество осадков в ' ,i,'-ом месяце');
    readln(a[i]);
    end;
    
    sum:=a[3]+a[6]+a[9]+a[12];
    
    writeln('Oбщее число осадков, выпавших в марте, июне, сентябре и декабре = ',sum);
end.