Chapter 3 Question 4 Solution

program Ulams;


var
  Number : integer;


begin
  { Get the Number }
  Write( 'Type a positive integer> ' );
  ReadLn( Number );
  while Number <> 1 do
    begin
      if Number mod 2 = 0 then
        Number := Number div 2
      else
        Number := Number * 3 + 1;
      WriteLn( 'Number is now ', Number )
    end { while }
end.