В результате применения пеницилина концентрация болезнетворных бактерий в крови больного уменьшается на 1/3 в день от содержимого предыдущего дня. Через сколько дней наступит выздоровление, если концентрация бактерий должна уменьшиться от N1 до N2 ? (N1 > N2)- Pascal(Паскаль)

{  
       В результате применения пеницилина концентрация болезнетворных
       бактерий в крови больного уменьшается на 1/3 в день от содержи-
       мого предыдущего дня. Через сколько дней наступит выздоровление,
       если концентрация бактерий должна уменьшиться от N1 до N2 ?
       (N1 > N2)
           ╔══════════════╤════════════════╤════════════╗
           ║ Начальная    │ Конечная       │  Количество║
           ║ концентрация │ концентрация   │    дней    ║
           ╟──────────────┼────────────────┼────────────╢
           ║     12       │      10        │     1      ║
           ╟──────────────┼────────────────┼────────────╢
           ║     27       │      10        │     3      ║
           ╟──────────────┼────────────────┼────────────╢
           ║   10 000     │      20        │     16     ║
           ╟──────────────┼────────────────┼────────────╢
           ║   20 000     │      20        │     18     ║
           ╚══════════════╧════════════════╧════════════╝
}

program 8;
uses crt;
var
  dni : Word;
  n1, n2, a : Real;
begin
ClrScr;
     Write('Введите начальную концентрацию: ');
     ReadLn(n1);
     Write('Введите конечную концентрацию : ');
     ReadLn(n2);
     dni := 0;
     a := 0;
      if n2 > n1 then
begin
      TextColor(Red);
      GotoXY(15,5);
      WriteLn('"Вы ввели некорректные данные.');
      GotoXY(15,6);
      WriteLn(' Попробуйте перезапустить программу и попробовать сначала."')
end
      else
begin
       repeat
         a := n1 / 3;
         n1 := n1 - a;
         Inc(dni)
       until n1 <= n2;
     WriteLn('Кол-во дней                   : ', dni)
end;
     WriteLn;
     Write('Press Enter');
     ReadLn
end.