Вбиблиотеку закупили n учебников. в первый день выдали к учебников, а в последующие дни – на 5% больше предыдущего дня. за сколько дней выдали все учебники? в паскале

Var k,n,i: integer;
begin
read (n,k);
i:=0;
while k<= n do begin
i:=i+1;
k:=k+(k+k*5/100);
end;
writeln (' количество дней=', i);
end.