Возможно имелось ввиду 2-х переменных, с использованием третей(если это не так, поправьте в комментариях):
begin
var (a, b) := ReadInteger2('a,b->');
var c := b;
b := a; a := c;
Println($'a={a}{NewLine}b={b}');
end.
