Введите 3 числа - a, b, c. Определите, имеется ли среди чисел хотя бы одно чётное число. Выведите на экран соответствующее сообщение: "Есть" либо "Нет".

Var a, b, c, tempA, tempB, tempC : integer;

begin

write ('Введите 1 число: ') ;

readln (a) ;

write ('Введите 2 число: ') ;

readln (b) ;

write ('Введите 3 число: ') ;

readln (c) ;

if a mod 2 > 0 then

tempA : = 0

else

tempA : = 1;

if b mod 2 > 0 then

tempB : = 0

else

tempB : = 1;

if c mod 2 > 0 then

tempC : = 0

else

tempC : = 1;

if (tempA = 0) or (tempB = 0) or (tempC = 0) then

write ('Есть!')

else

write ('Нет!') ;

end.

Var a, b, c: integer;

begin

read (a, b, c) ;

if (a mod 2 = 0) or (b mod 2 = 0) or (c mod 2 = 0)

then write ('Есть')

else write ('Нет') ;

end.