Определите, имеется ли среди заданных целых чисел   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.