Помогите пожалуйста! Составить программу какая вводит с клавиатуры элементы массива от 1 до 10 и высчитывает количество элементов с четными значениями

varn,i: integer;a: array [1..10] of integer;beginn:=0;for i:=1 to 10 dobeginread (a[i]);  if a[i] mod 2=0 then n:=n+1;end; writeln ('четных значений -',n);

end.