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

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

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

begin

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

 var c := b;

 b := a; a := c;

 Println('a=aNewLineb=b');

end.