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.