Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных позициях строки, а затем, в обратном порядке, все симво

Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных позициях строки, а затем, в обратном порядке, все символы, расположенные на нечетных позициях.

  • 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.