Расход топлива нового трактора составляет 4 литра в час. За каждый рабочий день в связи с износом расход топлива увеличивается на 0.01% в сравнении с предыдущим днем. Через сколько рабочих дней двигатель потребует капитального ремонта, если предельный расход топлива равен Z литров в час? — Pascal(Паскаль)

{ 
       Расход топлива нового трактора составляет 4 литра в час. За
       каждый рабочий день в связи с износом расход топлива увеличива-
       ется на 0.01% в сравнении с предыдущим днем. Через сколько
       рабочих дней двигатель потребует капитального ремонта, если
       предельный расход топлива равен Z литров в час?
       ╔═══════╤═══════════╗
       ║  Z    │    Кол-во ║
       ║       │    дней   ║
       ╟───────┼───────────╢
       ║  6.2  │   4383    ║
       ╟───────┼───────────╢
       ║  7.7  │   6550    ║
       ╟───────┼───────────╢
       ║  8.9  │   7998    ║
       ╟───────┼───────────╢
       ║  10.4 │   9556    ║
       ╚═══════╧═══════════╝
}

program 9;
uses crt;
var
  rashod, predel, prozent, a : Real;
  dni : Word;
begin
ClrScr;
     Write('Введите предельный расход топлива: ');
     ReadLn(predel);
     rashod := 4;
     prozent := 0.01;
     a := 0;
     dni := 0;
      if predel <= rashod then
begin
      TextColor(Red);
      GotoXY(15,4);
      WriteLn('"Вы ввели некорректные данные.');
      GotoXY(15,5);
      WriteLn(' Попробуйте перезапустить программу и попробовать снова."')
end
      else
begin
       repeat
         a := (rashod / 100) * prozent;
         rashod := rashod + a;
         Inc(dni)
       until rashod >= predel;
       WriteLn('Кол-во дней: ', dni)
end;
     WriteLn;
     WriteLn('Press Enter');
     ReadLn
end.