Есть 3 переменные
a b c
Значение a должно быть в значении b
Значение b должно быть в значении c
Значение c должно быть в значении a
Новых переменных заводить нельзя
Если в b записываешь значение a, то значение b пропадает

Спасибо, я не знал что можно делать именно так

Кортежное присваивание называется

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

begin

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

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

 Print(a, b, c)

end.

Пример1 2 33 1 2