Дан одномерный массив натуральных чисел из 12 элементов. Найдите количество четных чисел.

получается вот так?:

Program P1; Uses crt; Var i,xinterger; A:array[1...12] of integer; Begin x:=0 From I=1 to 12 do

if a[i] mod 2 = 0 then k:=k+1; Writeln (A[I], ' ') End

(если i - кол-во элементов массива, a[i] - массив; добавить в переменные k-количество четных чисел, integer)k:=0from i=1 to 12 do if a[i] mod 2 = 0 then k:=k+1не забудь вывести значение, если необходимо