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