Цикл

[mik0650]

Никак не могу составить программу помогите пожалуйста !
Условие : Урожай яблок в 1990 г составил 20 тонн . Далее каждые 2 года урожай уменьшался на 20 % .
Найти, начиная с какого года будет собрано 5 тонн ?

[Roof]

Найти, начиная с какого года будет собрано 5 тонн ?

Насколько я понял начиная с какого года будет собрано менее 5 тонн, так как ровно 5 тонн не получится

program my_apple;
uses crt;
var
  crop : real; //урожай
  year : integer; // год
begin
  clrscr;
  crop := 20;
  year := 1990;
  while crop > 5 do begin
    crop := crop - crop*20/100;
    year := year + 2;
    writeln('В году ', year, ' Будет собрано ', crop:4:3, ' тонн яблок');
  end;
end.