Взаданном одномерном массиве состоящем из n целых частей нужно посчитать количество четных

Var  n,c,i: integer;  A: array[1..10000] of integer;begin  write('Кол-во частей: ');  read(n);
  for i:=1 to n do    read(A[i]);
  c:=0;  for i:=1 to n do    if A[i] mod 2 = 0 then c += 1;      write('Чётных чисел: ',c);end.