[poli-smen]

Сообщение от Vol4OK

А как в консольном так сделать?

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  Dialogs,  SysUtils;

var
  Slovo: String;
begin
  if InputQuery('', 'Введите слово', Slovo) then
  begin
    if LastDelimiter('0123456789', Slovo) > 0 then
      ShowMessage('В этом слове есть цифры')
    else
      ShowMessage('В этом слове нет цифр');
  end;
end.