Каждый год урожайность повышается на 5%. Через сколько лет урожай удвоится? (программа Паскаль)

USES Crt;
VAR
 YR, KL: BYTE;  YRG: REAL;
Begin
 ClrScr;
 Write('Введите урожайность ');  ReadLn(YR);
 YRG:=YR;
 While (YRG <2*YR) Do Begin
    YRG:=YRG+0.05*YRG;
     KL:=KL+1;
 End;
 WriteLn('Новый урожай ',YRG:5:0);
 Write('Через ',KL,' лет урожай удвоится');
END.