10 INPUT I
20 A$=STR$(I)
30 M=VAL(MID$(A$,2,1))
40 FOR J=2 TO LEN(A$)-1
50 IFM<VAL(MID$(A$,J+1,1))THEN M=VAL(MID$(A$,J+1,1)):NEXTJ ELSE NEXTJ
60 PRINT M