var fi,fo: text;
    S:string;
    d,i,M: integer;
    S1:array[1..5] of string;

begin
  d:=1;
  assign(fi,'data1.txt');
  reset(fi);
  while not eof(fi) do
    begin
      readln(fi,S);
        for i:=1 to length(S) do
          begin
          M:=ord(S[i]);
          if (ord(S[i])>64) and (ord(S[i])<91) then
          begin
            M:=ord(S[i])+13;
            if M>90 then M:=64+M-90;
          end;
          S1[d]:=S1[d]+chr(M);
          end;
      inc(d);
    end;
  close(fi);
  assign(fo,'out1.txt');
  rewrite(fo);
  for d:=1 to 5 do writeln(fo,S1[d]);
  close(fo);
end.