Program exchange_ab; Var a, b: Integer; Begin a := 3; b := 10; {Выводим переменные} Writeln('Значения переменной A:', a); Writeln('Значения переменной B:', b); {Начинаем обмен} a := b + a; b := a - b; a := a - b; {Выводим переменные} Writeln('Значения переменной A:', a); Writeln('Значения переменной B:', b); Writeln('Для выхода нажмите Enter'); Readln; End.
