{Лексичний пеpебўp}
program z2;
var a,r: longint; c,n,i,k,m,t: integer; s: string; tem: char;
begin
  writeln;
  writeln('Лексичний пеpебўp');
  writeln;
  write('Введўть число ');
  read(a);
  str(a,s);
  n:=length(s);
  i:=n;
  while s[i]<=s[i-1] do dec(i);
  k:=i-1;
  writeln('k=',k);
  i:=n;
  while s[i]<s[k] do dec(i);
  m:=i;
  writeln('m=',m);
  tem:=s[k]; s[k]:=s[m]; s[m]:=tem;
  writeln(s);
  t:=(k+1+n) div 2;
  for i:=k+1 to t do
    begin
      tem:=s[i]; s[i]:=s[n+1-(i-k)]; s[n+1-(i-k)]:=tem;
      writeln(tem);

    end;
  val(s,r,c);
  writeln('a=',a);
  writeln('r=',r);
end.