На заводе по производству биотоплива выращивают биомассу, Ежеднев
но масса биомассы увеличивается на 30 %. 1 сентября масса составляла

1.5 т. Выведите на экран количество биомассы на заводе за неделю. Резуль
тат работы программы может выглядеть так:

1 сентября количество биомассы составляет 1.5 т

2 сентября количество биомассы составляет 1. 95 т

3 сентября количество биомассы составляет 2.535 т

4 сентября количество биомассы составляет 3.2955 т

var i:integer;

b: real;

begin

b:=1.5;

for i:=1 to 7 do

begin

writeln(i,' сентября количество биомассы составляет ', b,' т');

b := b*1.3

end

end.