//PascalABC.NET 3.1 сборка 1200
begin
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.
Решение показано во вложении
"for i := a to/downto b do" используется, если известно, сколько раз точно будет выполнен цикл.
Принтер машина для распичатки документов является дополнительным устройством для компьютера
Монитор выводит все действия компьютера на экран является основным устройством компьютера
Как назовете файл, так он и будет называться. В данном случае имя word_2