Поменять местами значения переменных x и y с использованием промежуточной переменной

С использованием?)

var
  x,y,z:integer;
begin
  write('x= '); readln(x);
  write('y= '); readln(y);
  z:=x;
  x:=y;
  y:=z;
  writeln;
  writeln('x= ',x); write('y= ',y);
  readln;
end.