Посчитать, сколько в массиве из 10 элементов четных чисел. Элементы массива вводятся с клавиатуры.

var  A: array [1..10] of integer;  i, count : byte;begincount := 0;for i := 1 to 10 dobegin  write('Введите A[', i, '] = ');  readln(A[i]);  if A[i] mod 2 = 0 then    count := count + 1;end;for i := 1 to 10 do  write(A[i]:4);writeln;  writeln('Количество четных элементов = ', count);end.