{* Задача243 *}

REM basic

' У фермера N. урожай ячменя составил 15 ц/га. За счет применения новых видов
' удобрений он планирует увеличивать урожайность на 2% в год.
' Определить через какое количество лет урожай составит 20 ц/га.


CLS
x = 15                      
Do
        y = y + 1           
        x = x * 1.02        
Loop While x < 20
       
        PRINT "Через"; y; "лет"
End