{ palpak.txt -- Algorithm #13: Palindrome Encryption by Tom Swan }

input 
  S: String;
var
  I, E, C: Integer;
begin
  I <- 1;
  E <- Length(S);
  while (I <= Length(S)) do
  begin
    C <- (Uppercase(S[I]) 
      + Lowercase(S[E]);
    Write C to output;
    I <- I + 1;
    E <- E - 1;
  end;
end;
