здравствуйте помогите пожалуйста
5. Росток появляется из земли, начинает расти, прибавляя в росте 40% от роста в предыдущий день. Нормальный рост равен 32см. Успеет ли росток за 13 дней набрать нормальный рост, если в первый день его высота 0,5см. Если не успеет, то посчитайте, за сколько дней он вырастет до нормы.

Выполнение

program RastiRostok;

var h: Double; //в  этой переменной храним высоту

var i: integer; // это для счетчика дней

var s:string;

begin

i := 0;

h:=0.5;

while(h<=32) do

begin

h:= h + 0.4*h;

i:= i+1;

writeln(h:15:2);

end;

 

str(i,s);

writeln('Количество дней:'+s);

str(h:15:2,s);

writeln('Высота ростка:'+s);

 end.

В итоге успеет за 13 дней вырасти

Расклад по дням и итог

0.70 0.98 1.37 1.92 2.69 3.76 5.27 7.38 10.33 14.46 20.25 28.35 39.69 Количество дней:13 Высота ростка: 39.69