Question

Написать программу обмена трёх переменных

Answer 1

Возможно имелось ввиду 2-х переменных, с использованием третей(если это не так, поправьте в комментариях):

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

begin

 var (a, b) := ReadInteger2('a,b->');

 var c := b;

 b := a; a := c;

 Println($'a={a}{NewLine}b={b}');

end.