Program enot;
Var i,a1,b1,c1,q1,d1,code,sum:integer; a,c,b,q,d:string;
k,f:char; 
Begin
Read(q);
a:=q;
b:=a;
c:=a;
d:=a;

k:= q[1]; 

q[1]:=q[3];           {1}
q[3]:=k;
writeln(q);


             
a[1]:=a[2];            {2}
a[2]:=a[3];
a[3]:=k;
writeln(a);


b[1]:=b[3];             {3}
f:=b[2];
b[2]:=k;
b[3]:=f;
writeln(b);

c[1]:=c[2];              {4}
c[2]:=k;
writeln(c);

d[2]:=d[3];              {5}
d[3]:=f;
writeln(d);


val(q,q1,code);
val(a,a1,code);
val(b,b1,code);
val(c,c1,code);
val(d,d1, code);
sum:=a1+q1+b1+c1+d1;
writeln(sum);             {6}
end.