Выделить всё

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.