program z1648;

Var s:string;

i,j,l,r:byte;

ch:char;

begin

Write('vvedite stroky');readln(s);

l:=1;

while s[l]<>'z' do l:=l+1;

r:=length(s);

while s[r]<>'z' do r:=r-1;

i:=l+1; j:=r-1;

while i<j do begin ch:=s[i];s[i]:=s[j];s[j]:=ch;

i:=i+1; j:=j-1

end;writeln(s)

end.