на пищевом комбинате в установку по изготовлению дрожжей заложено 0,75т дрожжевой массы. При поддерживании оптимальной температуры за сутки масса дрожжей увеличивается на 160%. 0,6т массы ежедневно пускают в производство.
а) какая масса драждэй будет в установке через 6 суток?
б) через сколько суток масса дрожжей в установке может достичь 9Т.

Пожалуйста помогите !!!!

Ответ:

Var i:integer;

Mas:real;

Begin

{Задание а}

Mas:=0.75;

For i:=1 to 6 do begin

Mas:=mas*2.6-0.6;

End;

Write(mas);

{Задание b}

Mas:=0.75;

I:=0;

Repeat

Mas:=mas*2.6-0.6;

Inc(i);

Until mas>9.0

Write(i);

End.

program raf105;

var

 dr: real;

 day: integer;

 a,b: boolean;

begin

 dr:= 0.75;

 while not(a) or not(b) do

 begin

   day:= day+1;

   dr:= dr + dr/100*160;

   dr:= dr - 0.6;

   if day = 6

     then begin

       writeln('а) Через 6 дней в установке будет ',dr:0:2,' т. дрожжей');

       a:= True;

     end;

   if (dr >= 9) and not(b)

     then begin

       writeln('б) Через ',day,' суток масса дрожжей достигнет порога 9 т.');

       b:= True;

     end;

  end;

end.