На зерновом складе в начальный момент было 18672 тонны зерна.каждый день со склада вывозилось 0,5% зерна от общего количества. через сколько дней зерна станет меньше 20 тонн?

Program timeSeed;
 const
  totalSeed=18672;
  lessThan=20;
 var
  Days:word;
begin
 Days:=(totalSeed-lessThan+1) div round(totalSeed/200);
 write('Days - ',Days);  readln;
end.