Ну вот, получите.
Только, сразу оговариваю:
1. Программа написана для Turbo (Free) Pascal, если у Вас этот грёбаный богомерзкий ABC и на нём она не идёт — не мои проблемы. Этой гадости не держу и не собираюсь.
2. Кириллица НЕ допускается — только латиница.
Код:
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.