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.