program Whiletest {

// Kommentar: Ulam-Algorithmus

var param, ulam, temp : int

// Bitte hier Startwert festlegen

param := 350;
ulam  := 0;

while ulam = 0 do {
  if param = 1 then 
      ulam = param    // Syntaxfehler
  if param != 1 then {
       print param;

       // Zweier-Division mit Rest:
       temp := param;
       while temp > 1 do
          temp := temp - 2;

       if temp := 0 then // Syntaxfehler
            param := param / 2;
       if temp != 0 then
            param := 3 * param + 1
     }
  };
// Ende:
print ulam

}