program
x;
y;
begin
  if (x > y)
  then ( y := x - y; x := y - x;)
  else ( x := y - x; )
  y := x - y;
end
