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.
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.