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