Составьте программу, которая заполняет массив a[1..8] случайными целыми числами в диапозоне от 1 до 10 и выводит на экран количество элементов с чётными значениями и сумму элементов массива с нечётными значениями(составьте программу пожалуйста)

program ex;var i, h, k: integer; a: array[1..8] of integer;begin h := 0; k := 0; for i := 1 to 8 do begin a[i] := random(1, 10); if i mod 2 = 0 then k := k + 1 else h := h + a[i] end; writeln('Колл-во четных элементов : ', k); write('Сумма нечетных элементов массива: ', h)end.

program ex;var  i, h, k: integer;  a: array[1..8] of integer;begin  h := 0;  k := 0;  for i := 1 to 8 do   begin    a[i] := random(1, 10);    if i mod 2 = 0 then      k := k + 1    else      h := h + a[i]  end;  writeln('Колл-во четных элементов : ', k);  write('Сумма нечетных элементов массива: ', h)end.