Trần Quang Đạt

Var s: string;
    t: char;
    i,j: longint;
Begin
        Assign(Input,'D2XB2.2.INP');
        Assign(Output,'D2XB2.2.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(s);
        For i:=1 to length(s)-1 do
                For j:=i+1 to length(s) do
                        If s[i]>s[j] then
                                Begin
                                        t:=s[i];
                                        s[i]:=s[j];
                                        s[j]:=t;
                                End;
        Write(s,#32);
        Close(Input);
        Close(Output);
End.

Var s,snen,stam: string;
    i,dem: longint;

Begin
        Assign(Input,'D2XB4.INP');
        Assign(Output,'D2XB4.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(s);
        For i:=1 to length(s) do
                If s[i]=s[i+1] then inc(dem)
        Else
                Begin
                        Str(dem,Stam);
                        Snen:=Snen+s[i]+stam;
                        Dem:=1;
                End;
        Write(Snen);
        Close(Input);
        Close(Output);
End.