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