Напишите пожалуйста программу: nВвести массив A(n). Если в массиве нет нулевых элементов, nстоящих на четных позициях, то заменить все нечетные элементы nна 99, иначе n– найти максимальный по модулю элемент массива и его номер.nnНапишите максимально просто, по типу:n//Ввести массив произвольного размера А(n). Если в массиве n//нет элементов, кратных 3, то уменьшить все нечетные элементы на 2, иначе n//–найти максимальный элемент. nProgram PR1; nUses crt; nVar A:array [1..20] of integer; ni, n, l,m: integer; nbegin nclrscr; nwriteln(u0026#39;vvod_n=u0026#39;); nreadln(n); nrandomize; nwriteln; nfor i:=1 to n do nbegin nA[i]:=-15+random(25); nWrite(A[i]:4); nEnd; nfor i:=1 to n do nif A[i] mod 3=0 then l:=l+1; nwriteln; nwriteln(u0026#39;kol-vo kratnix 3 l =u0026#39;, l:3); nif l=0 then nfor i:=1 to n do nbegin nif A[i] mod 2 u0026lt;u0026gt;0 then nA[i]:=A[i]-2; nWriteln (A[i]:5); nend nElse nBegin nm:=A[1]; nfor i:=1 to n do nif (A[i]u0026gt;m) then m:=A[i]; nwriteln (u0026#39;max = u0026#39;, m:5); nend; nreadln; nend.