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

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