Какие части растений могут повреждаться насекомыми?

№2
var d, n, i: integer;
begin
d:=1;
n:=24 div 3;
for i:= 1 to n do
begin
d:=d*2;
writeln('Количество амеб через ', i*3, ' часов: ', d);
end;
end.