Определите, имеется ли среди заданных целых чисел A, B, C хотя бы одно чётное.

var a, b, c, count:integer;

begin

writeln ('Введите любые три числа ') ;

readln (a) ;

readln (b) ;

readln (c) ;

count:=0;

if a mod 2=0 then inc (count) ;

if b mod 2=0 then inc (count) ;

if c mod 2=0 then inc (count) ;

if count>0 then writeln ('Среди данных чисел есть ', count,' четн.')

else writeln ('Среди данных чисел четных нету') ;

end.