program pr6;
var 
x,s:real;
n,k,i:integer;
mas:array [1..9] of real;

begin
n:=9;
s:=0;k:=0;
for i:=1 to n do
 begin
 x:=exp(ln(0.3)*i)+ln(i)-1;
 mas[i]:=x;
  if mas[i]<0 then
   begin
   s:=s+mas[i];
   k:=k+1;
  end;
end;
if k<>0 then 
begin
  writeln('amount is ',s:5:2);
 writeln('quantity is ',k);
 writeln('result is(s/k)',s/k:5:2);
readln;
end;
if k=0 then
 writeln('there is no negative result');
readln;
end.