Массив содержит сведения о количестве осадков выпавших за каждый…

Получите заспишитесь) const n=12; var i,k,l,o: integer; a: array [1… 100] of integer; beginwriteln ('Введите кол-во осадков: '); for i: =1 to n do beginwrite ('За ', i,'-й месяц: '); readln (a[i]); l: =l+a[i]; if a[i]<30 then inc (o); end; write ('Общее количество осадков за год: ', l,' Количество засушливых месяцев: ',o); end.