OJ Board

Hi!

Maybe this help a little:
while N <> 1 do begin
if odd(N) then begin
{n := 3*n + 1; - result is not odd, so divide by 2}
N := N + ((N + 1) div 2);
cl := cl + 2;
continue;
end else N := N div 2;
cl := cl + 1;
end;