Const
 Q:Set of Char=['a'..'z']+['A'..'Z']+['0'..'9'];
VAR
 W:Array[1..100] of String;
 R:Array[1..100] of LongInt;
 S:String;
 C:Integer;
 D:LongInt;
 i,N,j:Byte;
BEGIN
 Writeln('Enter the string:');
 Readln(S);
 for i:=1 to 100 do W[i]:='';
 i:=0;
 N:=1;
 Repeat
  Inc(i);
  if (S[i] in Q) then W[N]:=W[N]+S[i];
 Until Not(S[i] in Q) or (i=Length(S));
 Repeat
  if i<Length(S) then
   begin
    Dec(i);
    repeat
     Inc(i);
    until (S[i] in Q);
    Dec(i);
    Inc(N);
    repeat
     Inc(i);
     if (S[i] in Q) then W[N]:=W[N]+S[i];
    until Not(S[i] in Q) or (i=Length(S));
   end;
  Until (i=Length(S));
  j:=0;
  for i:=1 to N do
   begin
    W[i]:='$'+W[i];
    Val(W[i],D,C);
    if C=0 then
     begin
      Inc(j);
      R[j]:=D;
      Writeln('Sedecimal: '+W[i]+' Decimal: ',R[j]);
     end;
   end;
  if j>0 then
   begin
    i:=1;
    D:=R[1];
    repeat
     Inc(i);
     if (i<=j) and (R[i]>D) then D:=R[i];
    until i=j;
   end;
 Writeln('Maximal value is ',D);
 Readln;
END.