Verified answer

var

 A, B, C, i: Integer;

begin

   Write ('Введите значение A: ');

   ReadLn (A);

   Write ('Введите значение B: ');

   ReadLn (B);

   Write ('Введите значение C: ');

   ReadLn (C);

   i := 0;

   if A mod 2 = 0 then

     Inc (i);

   if B mod 2 = 0 then

     Inc (i);

   if C mod 2 = 0 then

     Inc (i);

   Writeln ('Количество четных чисел = ' + IntToStr (i));

end;