var
  inputString: string;
begin
  inputString := ReadString;
  
  Writeln(inputString[3]); // 1
  
  Writeln(inputString[inputString.Length - 1]); // 2
  
  Writeln(Copy(inputString, 1, 5)); // 3
  
  Writeln(Copy(inputString, 1, inputString.Length - 2)); // 4
  
  // 5
  for var i := 1 to inputString.Length do
    if i mod 2 <> 0 then
      Write(inputString[i]);
  
  Writeln;
  
  // 6
  for var i := 1 to inputString.Length do
    if i mod 2 = 0 then
      Write(inputString[i]);
      
  Writeln;
  
  // 7
  for var i := inputString.Length downto 1 do
    Write(inputString[i]);
          
  Writeln;
  
  // 8
  for var i := inputString.Length + 1 downto 1 do
    if i mod 2 <> 0 then
      Write(inputString[i]);
  
  Writeln;
  
  // 9
  Writeln(inputString.Length);
end.