验证角谷猜想
问题描述：
验证角谷猜想
对于一个正整数n,若n为奇数则乘3加1,若n为偶数则除以2,有限步后n=1.
输入（jg.in）:
n,表示输入的整数.
输出（jg.out）：
m,表示经过m步后n=1.
[输入输出样例]
输入样例
100
输出样例
25
用pasacl语言!
答
var i,n:longint;
begin
readln(n);
while n>1 do
begin
if odd(n) then n:=3*n+1 else n:=n div 2;
inc(i);
end;
writeln(i);
end.