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