Пленник, которого держали в охраняемой землянке, делал подземный ход. в первую ночь он прокопал ход длиной 1 м. каждую следующую ночь из-за потери сил он делал ход на 5% короче. через сколько дней он сможет сбежать, если до свободы путь 13 м? турбо паскаль

Uses crt;
var
  len, h : real;
  day : integer;
  begin  len := 13;
  h := 1;
  clrscr;
    while len > 0 do begin
    len := len - h;
    h := h - h * 0.05;
    day := day + 1;
  end;
    write(day);
end.