uses crt;
   type  rucsac = record
              m:byte;
              p,c:real;
                  end;
var    a:array [1..200] of rucsac;
       n,g,i,j,k,p,max,q:byte;
       v:real;
       f:rucsac;
       fi,fo:text;
begin clrscr;
        Assign(fi,'rucsac.in');
        Assign(fo,'rucsac.out');
        reset(fi);
        rewrite(fo);
   n:=0;
   While not(eoln(fi)) do read(g);
   While not(eoln(fi)) do read(v);
   for i:=1 to n do begin
                        writeln('Masa diamantului ',i,' = '); readln (a[i].m);
                        writeln('Pretul diamantului ',i,' = '); readln (a[i].p);
                        a[i].c:=a[i].p/a[i].m

                   end;

   For i:=1 to n do
         For j:=i+1 to n do
                         If a[j].p > a[i].p then Begin
                                                 f:=a[i];
                                                 a[i]:=a[j];
                                                 a[j]:=f;
                                                 end;

                 p:=1; v:=0;
                 for i:=1 to n do
                  if a[i].m<=g then begin
                                        v:=v+a[i].c;
                                        g:=g-a[i].m;
                                        inc(a[i].m);
                                    end;
      writeln (fo,v:0:3);
readkey;
end.