var

n, m, prva, posl, sred, brcif, stepen : int64;

f, g : Text;

begin

Assign(f,’broj.in’); Reset(f);

Assign(g,’broj.out’); Rewrite(g);

Read(f, n);

m := n;

brcif := 0;

stepen := 1;

While (m > 0) do

begin

brcif := brcif + 1;

m := m div 10;

stepen := stepen * 10;

end;

stepen := stepen div 10;

posl := n mod 10;

prva := n div stepen;

sred := (n mod stepen) div 10;

m := prva + 10 * sred + posl * stepen;

WriteLn(g, m);

Close(f); Close(g);

end.