"даны вещественные числа t , x, y, z. поменять их значения местами "по кругу" записав на место t значения x , на место x значение y, на место y значение z, на место z значение t"

Var t, x, y, z, m, n:real;
begin
 writeln ('Vvedite t, x, y, z');
 readln(t, x, y, z);
 m:=z;
 z:=t;
 n:=y;
 y:=m;
 m:=x;
 x:=n;
 t:=m;
writeln ('t = ', t);
writeln ('x = ', x);
writeln ('y = ', y);
writeln ('z = ', z);
end.