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"+
−