Найдите среднее арифметическое чисел, принадлежащих промежутку [A, B), и количество положительных чисел, стоящих на местах, кратных 4 паскаль
решить задачу в паскаль с помощью одномерного массива

const nx=100;var i,j,k,n,s,A,B:integer;M:array[1..nx] of integer;sr:real;beginwriteln('Введите начало и конец диапазона');Readln(A,B);for k:=A to B-1 do begini:= i+1;M[i]:= k;s:= s + k;if ((i mod 4 = 0) and (M[i]>0)) then beginwrite(m[i]:3); n:= n +1;end;end;writeln;for j:=1 to i dowrite(m[j]:3);writeln;sr:=s/i;writeln('Среднее арифметическое чисел, принадлежащих промежутку [A, B) = ', sr:6:3);writeln('Количество положительных чисел, стоящих на местах, кратных 4 = ' ,n);end.