Склавиатуры водиться последовательность из 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.