program Whiletest {


var param,  temp : int;
    ulam : bool

param := 35;
ulam  := True;

while ulam do {
  if {param = 1} then 
     { ulam := False };
  if {param != 1} then {
       print param;

       temp := param;
       while {temp > 1} do
          temp := temp - 2;

       if {temp = 0} & True
         then {param := param / 2}
         else {param := 1 + 3 * param}
     }
  };

print ulam

}