program diapazon; var k, l, m, n : integer; ok1, ok2 : Boolean; i, j : integer; begin writeln('...:::Diapazon:::...'); write('k='); readln(k); write('l='); readln(l); write('m='); readln(m); i:=0; n:=k-1; ok1:=true; ok2:=false; while (n <= l) and ok1 do begin n:=k+1; while not ok2 do begin i:=i+1; if n mod 2 = 0 then n := n div 2 else n := n*3 + 1; if n = 1 then ok2:=true else ok2:=false; end; if i > m then ok1:=false else ok1:=true; end; if ok1 then writeln('yes', i) else writeln('no', i); readln; end.