Дан массив осадков за каждый день июля (31 день) .Определить в какую десятидневку выпало наибольшее количество осадков .

const N = 4; {количество девятидневок в 31 числе} var a: array [1..31]  of integer;{заранеее заполненный}     i, max, d : integer; begin  max:=0; for i:= 1 to 31 do  if a[i] > max then {нахождение максимального числа и запонимание его девятидневки}    begin      max := a[i];      d:= i mod N;    end;  writeln(d){вывод девятидневки} end.