Решение задачи String 66

#include <bits/stdc++.h>

using namespace std;

int main()
{
    system("chcp 1251");
    string s, s1 = "";
    cin >> s;
    for(int i = 0; i < s.size(); i++){
        if(i % 2 != 0)
            cout << s[i];
        else
            s1 += s[i];
    }
    reverse(s1.begin(), s1.end());
    cout << s1;
    return 0;
}

program String66;
var
 S,S2:String;
 i:integer;
 
begin
  Write('S: ');
  Readln(S);
  S2:='';
  i:=2 ;
  while (i<=Length(S)) do
   begin
    S2:=S2+S[i];
    inc(i,2);
   end;
  i:=Length(S)+ (Length(S) mod 2)-1;
  while (i>=1) do
   begin
    S2:=S2+S[i];
    dec(i,2);
   end;
  Writeln(S2);
end.