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