HELPP!!
определите среднее арифметическое чётных элементов массива A[1..10]
Написать программу в Паскаль

Var

m:array [1..100000] of integer;

k,i:integer;

Begin

k:=0;

randomize;

For i:=1 to 10 do

read(m[i]);

For i:=1 to 10 do

k:=k+m[i];

k:=k mod 10;

writeln(k);

end.