С клавиатуры вводится натуральное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях.

ПАСКАЛЬ

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 if ReadInteger.ToString.Any(c-> '13579'.Contains(c))

 then Print('Нет')

 else Print('Да')

end.