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

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