Линейный массив содержит сведения о количестве осадков, выпавших за каждый из 12 месяцев одного года. Составить программу,

var   i, sum, min, y, z : integer;            // объявляем переменные целочисленного типа.   arr : array [1..12] of integer;       // объявляем массив.Begin    writeln (\'Введите количество осадков за каждый месяц в году, в мм:\');      for i:= 1 to 12 do         // начало цикла.         begin            read(arr[i]);                           // считываем кол-во осадков за каждый месяц.            if i = 1 then min := arr[1];     // считаем кол-во осадков в 1-й месяц минимальным.            sum := sum + arr[i];             // считаем сумму осадков за год.               if arr[i] < 30 then               // если месяц засушливый.                  begin                       z := z + 1;                       // считаем количество засушливых месяцев.                         if arr[i] < min then       // проверяем самый засушливый месяц.                           begin                                min := arr[i];                                y := i;      // присваиваем порядковый номер самому засушливому месяцу.                           end;                   end;         end;  writeln(\'Сумма осадков за год в мм.: \', sum);  writeln(\'Среднемесячное количество осадков в мм.: \', round(sum / 12,2));  writeln(\'Количество засушливых месяцев в году: \', z);   writeln(y, \'-й месяц был самый засушливый в этом году\');End.