FPC IDE 2.6.0
var n:real; i:integer;
begin
n:=0.5;
for i:=2 to 13 do
n:=n+(n*40/100);
writeln(n:0:2);
readln;
end..
Если в первый же день прибавлять рост, то цветок вырастет до 39.69 см., м успеет вырасти до нужного нам размера.
Если начинать прибавлять рост со следующего дня( что вроде как по условии более верно ) то получиться 28.35 см., а значит не успеет вырасти.
В программе показан пример, где прибавлять начинаем со второго дня.