Массив содержит сведения о количестве осадков выпавших за каждый из 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] < 30 then           // если осадков меньше 30 мм.             sum := sum + 1;       // считаем количество элементов.         end;  writeln(\'Общее количество осадков за год: \', sum2);           //вывод строки на экран.  writeln(\'Количество засушливых месяцев в году: \', sum);   //вывод строки на экран.End.