"даны вещественные числа 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.