/TIGU - Tiền gửi ngân hàng

<Problem>

http://ntucoder.net/Problem/Details/2244
              USES CRT,MATH;
        var     n,m,res:int64;
                temp1:real;
                begin
                    readln(n,m);
                    res:=0;
                    while n<m do begin
                        temp1:=n*0.1;
                        if (temp1-trunc(temp1)>=0.5) then
                        n:=n+trunc(temp1)+1 else
                        n:=n+trunc(temp1);
                        inc(res); //writeln(n);
                    end;
                    writeln(res);
                end.