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