del_zadanie_11_03_2021_v3

program zadanie_11_03_2021;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
    StrIn, StrOut: String;
    Ch, ChStart, Ch1: Char;
    NotChanged, i: Integer;

begin
    readln(StrIn);

    StrOut := '';

    for I := 0 to High(StrIn) do
    begin
        Ch := StrIn[i];
        ChStart := Ch;

        for Ch1 := 'A' to 'Z' do
            Ch := StringReplace(Ch + '', Ch1, chr(ord(ch1) + 32), [])[1];

        NotChanged := AnsiCompareStr(Ch, ChStart) + 1;

        for Ch1 := 'a' to 'z' do
            Ch := StringReplace(Ch + '', Ch1, chr(ord(ch) - 32 * NotChanged), [])[1];
        StrOut := StrOut + Ch;
    end;

    writeln(StrOut);

    readln;
end.