Program PRIMER;
Uses crt;
const n = 20;
var a,b, k: real;

Begin b:=5;
      while (b<=n)  do
      begin
      a:=(b*5)/100;
      b:=b+a;
      k:=k+1;
      end;
      write('Через ', k, ' дней');

End.