(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((s (read-line))
         (a (parse-integer s)))
    (dotimes (i (length s))
      (dotimes (j i)
        (let* ((prefix (subseq s 0 j))
               (mid1 (subseq s i (1+ i)))
               (mid2 (subseq s (1+ j) i))
               (mid3 (subseq s j (1+ j)))
               (suffix (subseq s (1+ i)))
               (b (parse-integer (concatenate 'string prefix mid1 mid2 mid3 suffix))))
          (setf a (max a b)))))
    (format t "~d~%" a)))

(main)