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

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