× if a<b then begin
　 z:=y;
　 y:=x;
　 x:=z;
　 end;