Code It Up

program CodeItUp;

var
  EString, OString: string;
  C : char;
  i : integer;

begin
  readln(EString);
  i:=1;
  OString := EString;
  for C in EString do
  begin
    OString[i] := chr(Ord(C)+25);
    i+=1;
  end;
  writeln(OString);
  readln();
end.