write "Input a number ";+
−
read n;+
−
while n > 1 do {+
−
  if n % 2 == 0 +
−
  then n := n / 2 +
−
  else n := 3 * n + 1;+
−
};+
−
write "Yes\n";+
−