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

VarA,B,C,n:integer;BeginWriteLn('Введите три целых числа');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.