Tìm k số nguyên lẻ liên tiếp sao cho tổng của chúng không vượt quá 300

câu này cũng dễ 

Var i , T ,D: integer ;

Begin 

     i := 1 ; T := 0 ; D := 0 ;

     While T <= 300 do

          Begin 

               T := T + i ;

                i := i * 2 ; 

                D := D+1 ;

           End;

       Writeln(‘K = ‘,D);

        Readln

End.