Составить программу , которая заполняет массив А[1..10] случайными целыми числами в

CONST k=10; k - количество чисел в массивеVAR a:array[1..k] of integer;    i,summ,n:integer; i - счетчик цикла, summ - сумматор, n - количество частей массива с четным значением    sr:real; sr - среднее арифметическое BEGIN  summ:=0; n:=0; Обнуляем счетчики  for i:=1 to k do     begin      a[i]:=random(50); Наполняем массив случайными числами      write (a[i],' '); Выводим массив      if a[i] mod 2=0 then         begin          summ:=summ+a[i]; Находим сумму элементов массива с четными значениями          n:=n+1        end    end;  sr:=summ/n; Находим среднее арифметическое  writeln;  writeln (sr:0:2) Выводим среднее арифметическоеEND.