var c : char;
    numer : integer;

begin

    {w petli ma byc:
      wczytywanie c (jest)
      kodowanie malych liter (jest)
      kodowanie wielkich liter (napisac)
      kodowanie cyfr (napisac)

       po zakodowaniu zmienna c ma zawierac albo 
oryginalna wartosc (dla np. '+') albo zakodowana.

      wypisanie c (jest)
    }

    while not eof() do
    begin
        read(c);

        {male litery}
        if (c>='a') and (c<='z') then
        begin
            {numer litery w alfabecie, dla 'a' = 0, dla 'b' =1, ..., 'z'=25 }
            numer := ord(c) - ord('a');

            {zakodowanie liczby - dodanie 13, i "zawiniecie" jesli numer}
            {wykracza poza 'z' (numer 25) }
            numer := (numer + 13) mod 26;

            c:= chr(ord('a')+numer) ;
        end;
	if (c>='A') and (c<='Z') then
        begin
            {numer litery w alfabecie, dla 'a' = 0, dla 'b' =1, ..., 'z'=25 }
            numer := ord(c) - ord('A');

            {zakodowanie liczby - dodanie 13, i "zawiniecie" jesli numer}
            {wykracza poza 'z' (numer 25) }
            numer := (numer + 13) mod 26;

            c:= chr(ord('A')+numer) ;
        end;

        {wielkie litery}

        {cyfry}

        write(c);
    end;
end.