var
  st: string;
  i: integer;
  isHex: boolean;

begin
  writeln('Введите строку: ');
  readln(st);
  for i := 1 to length(st) do
  begin
    case st[i] of
      '0'..'9': isHex := true;
      'a'..'f': isHex := true;
      'A'..'F': isHex := true;
      else
      begin
        isHex := false;
        break;
      end;
    end;
  end;
  if isHex then
    writeln('Введенная строка является шеснадцатиричным числом.')
  else
    writeln('Введенная строка не является шеснадцатиричным числом.');
end.