написать обмена значений 3 переменных через 4 переменную, оптимизировать через 3 переменные

PascalABC.NET

begin

 var (a, b, c) := ReadReal3('Введи три числа:');

 // через четвертую переменную

 var t: real;

 t := a;

 a := b;

 b := c;

 c := t;

 Println(a, b, c);

 // без в переменной

 (a, b, c) := (b, c, a);

 Println(a, b, c)

end.