желательно программу полегче, а то в инете страшно смотреть на предлагаемые решения))

вроде как проще некуда меняем сначала а на что попало, потом б на а, потом что попало на б

//PascalABC.NET 3.1 сборка 1200begin    var s := ReadlnString('s =');    s := s.Replace('А', '*_*');    s := s.Replace('Б', 'А');    s := s.Replace('*_*', 'Б');        s := s.Replace('а', '*_*');    s := s.Replace('б', 'а');    s := s.Replace('*_*', 'б');    writeln(s);end.