while X > Y do
  if X > Y then
    X := X - Y
  else
    Y := Y - X
  fi
od