Резиновый жгут растянули, подействовав на него некоторой силой. Каков характер взаимодействия между молекулами резины?

var a, b, c, i, n :integer;
     s, p:string;
begin
   readln (s);
   for i:=1 to length (s) do
      if i mod 2 = 0 then p:=p+s[i];
   for i:=length (s) downto 1 do
      if i mod 2 <> 0 then p:=p+s[i];
   writeln (p);
end.