3AAAAASBA

program nub ;
uses wincrt;
Var
x,xx:string;
b,a:Integer;
z: char;
Begin
    writeln('donner x');
    readln(x);
    b := (Length(x)div 2)+1;
    z := x[b];
    a := ord(z);

                str(a,xx);
                Delete(x,((Length(x)div 2)+1),1);
                Insert(xx,x,b);
        WriteLn(x);



end.