С клавиатуры водиться последовательность из n - целых чисел. Сколько в ней четных чисел? (нужно: 1) постановка задачи; 2) алгоритм и 3) программа)

Program picaso; uses crt;

var i, n, k:integer;

a:array[1 ... 10] of integer;

begin clrscr;

k:=0;

writeln ('Vedite nomer cisel') ; read (n) ;

for i:=1 to n do

begin

write ('A[', i,']=') ;

readln (a[i]) ;

end;

for i:=1 to n do if (a[i] mod 2) = 0 then inc (k) ;

writeln ('Nomer ciotnih cisel: ', k) ;

end.