Написать программу, которая определяет количество четных чисел из введенной с клавиатуры последовательности n чисел. написать программу на паскале.

Например если вводится 3 числа

var a,b,c,x:integer;
begin
x:=0;
Read(a,b,c);
if a mod 2=0 then x:=x+1
if b mod 2=0 then x:=x+1;
if c mod 2=0 then x:=x+1;
Writeln('Chetnuh chisel =' ,x);
end.