Определить, через сколько лет урожай ячменя превысит заданное количество центнеров - Pascal

Формулировка задачи:

В некотором году на участке в 100 гектаров средняя урожайность ячменя составила 20 центнеров с гектара. После этого каждый год площадь участка увеличивалась на 5%, а средняя урожайность — на 2%. Определить, через сколько лет урожай превысит 4000 ц.

Решение задачи: «Определить, через сколько лет урожай ячменя превысит заданное количество центнеров»

Листинг программы

var
  S, crop: real;
  year: integer;
 
begin
  S := 100;
  crop := 20;
  year := 0;
  repeat
    S := S + (S * 0.05);
    crop := crop + (crop * 0.02);
    inc(year);
  until crop >= 4000;
  Writeln('Должно пройти = ', year, ' лет');
end.

Объяснение кода листинга программы

В начале определяются переменные S, crop и year.
Значение переменной S устанавливается равным 100, а значение переменной crop устанавливается равным 20.
Значение переменной year устанавливается равным 0.
Затем начинается цикл repeat, который будет выполняться до тех пор, пока значение переменной crop не превысит 4000.
Внутри цикла переменная S увеличивается на 5% от своего текущего значения, а переменная crop увеличивается на 2% от своего текущего значения.
После каждого увеличения значения переменных они инкрементируются (увеличиваются) на единицу.
Значение переменной year увеличивается на единицу каждый раз, когда происходит увеличение значения переменной crop.
Когда значение переменной crop превысит 4000, цикл repeat прекращается.
Выводится сообщение «Должно пройти = », за которым следует значение переменной year, выраженное в годах.