Дана последовательность чисел .
Если в этой последовательность есть четные числа посчитать сколько их?
Помогите пожалуйста!!!! Очень нужно!!! На языке паскал зб

program 2_0

var array(0..100) of Integer; //Вместо 0..100 берешь нужные диапазон

var i,s:integer;

begin

S=0;

<<Выбираешь заполнение массива нужным способом>>;

while (a[i] mod 2 = 0) do s:= s+1;

writeln('Количество чётных чисел = ' &s);

end.