Дано четырехзначное число. верно ли, что среди его цифр есть четные числа.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:=ReadInteger('Введите четырехзначное число:').ToString;
  if s.Where(c->c in ['0','2','4','6','8']).Any then
    Writeln('Есть четная цифра')
  else Writeln('Четных цифр нет')
end.

Тестовое решение
Введите четырехзначное число: 1943
Есть четная цифра