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

var
    i, sum, sum2 : integer;           // объявляем переменные целочисленного типа.
    arr : array [1..12] of integer;  // объявляем массив.
Begin
   writeln(Введите количество осадков за каждый месяц в году в мм:); // вывод строки на экран.
   for i:= 1 to 12 do          // начало цикла.
      begin
         readln(arr[i]);                // считываем значение температуры.
         sum2:= sum2 + arr[i];   // считаем сумму температур за каждый месяц.
         if arr[i] lt; 30 then           // если осадков меньше 30 мм.
             sum := sum + 1;       // считаем количество частей.
         end;
  writeln(Общее количество осадков за год: , sum2);           //вывод строчки на экран.
  writeln(Количество засушливых месяцев в году: , sum);   //вывод строчки на экран.
End.