Выделить всё
program untitled;
var rost, r_day: real; i, days, norma: integer;
BEGIN
days:= 13;
norma:= 32;
r_day:= 1.4; {Насколько растет}
rost := 0.5; {Рост в первый день}
for i:=2 to days do
begin
rost := rost * r_day;
end;
writeln ('Рост цветка после ', days, ' дней составил: ', rost:1:5);
if rost >= norma then writeln ('Цветок успел набрать нормальный рост')
else writeln ('Цветок НЕ успел набрать нормальный рост');
END.