С клавиатуры вводится натуральное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях. ПАСКАЛЬ
begin
if ReadInteger.ToString.Any(c-> '13579'.Contains(c))
then Print('Нет')
else Print('Да')
end.