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

const n=14;var c:array[1..n] of integer;s,k,i:integer;begink:=0;s:=0;for i:=1 to n do beginc[i]:=random(10)+1;write(c[i]:4);end;writeln; for i:=1 to n doif c[i] mod 2=0 then s:=s+c[i]else k:=k+1;writeln('сумма четных элементов = ',s); writeln('кол-во нечетных чисел= ', k); end.