// 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
Есть четная цифра