запишите алгоритм определения количества четных чисел среди заданных целых чисел а,в,с

vara,b,c,count:integer;begincount:=0;readln (a,b,c);if (a mod 2=0) then count:=count+1;if (b mod 2=0) then count:=count+1;if (c mod 2=0) then count:=count+1;writeln (count);end.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  var (a,b,c):=ReadInteger3;  var k:=0;  if a.IsEven then k+=1;  if b.IsEven then k+=1;  if c.IsEven then k+=1;  Writeln('Количество четных чисел равно ',k)end.