Pascal. с клавиатуры вводится 3 числа. определить сколько из них четных.

Var
A,B,C,n:integer;
Begin
WriteLn('Введите три целых числа');
ReadLn(A,B,C);
n:=0;
if A mod 2 = 0 then N:=N+1;
if B mod 2 = 0 then N:=N+1;
if C mod 2 = 0 then N:=N+1;
WriteLn(N)
End.