Нужно решить через Паскаль с помощью циклов for или while 1)Известно количество пассажиров за каждый месяц. Вычислить

1.Progran pass;varM: array [1..12] of integer;n, s, i: integer;sr: real;beginfor i:=1 to 12 dobeginwrite(\'Введите число пассажиров в \',i,\'-м месяце\');readln(M[i]);end;for i:=1 to n do s:=s+M[i];sr:=s/12;writeln(\'Среднее число пассажиров за год: \',sr);readln;end.2.Program igr;varI: array [1..100] of integer;d, n, f,j, max: integer;beginwrite(\'Введите количество игроков: \');readln(n);for j:=1 to n do beginwrite(\'Введите число очков \',j,\'-го игрока \');readln(I[j]);end;f:=I[1];for j:=1 to n do if I[j]>f then beginmax:=I[j];f:=j end;writeln(\'Лучший игрок - №\',f);readln;end.