Дана строка, слова в которой разделены пробелами. проверьте, содержит ли строка хотя бы одну цифру. в packalabc.net тема "строки"

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  if ReadlnString.IndexOfAny('0123456789'.ToCharArray)>-1
  then Writeln('Содержит') else Writeln('Не содержит')
end.