program kolxo3;
uses crt;
var k,u,v,w,i,d: integer;
       p,q,r,z,x,y,g,s,t,f:real;
begin
      clrscr;
      writeln('vvedite ha4albhoe ctado';
     readln(k);
     writeln('vvedite ha4albhoe koli4ectvo cena,ciloca i kombikorma';
     readln(s,t,f);
     writeln('vvedite pau,bion cena,ciloca i kombikorma';
     readln(u,v,w);
     writeln('vvedite ckolbko pogibaet korov ezhednevno v proueu,entax';
     readln(p);
     writeln('vvedite ckolbko ybivaet cena,ciloca i kombikorma ezhednevno v    proueu,entax';
     readln(q,r,g);
    d:=0;
repeat
   s:=s-(k-k*(p/100))*u-s*(q/100);
   t:=t-(k-k*(p/100))*v-t*(r/100);
   f:=f-(k-k*(p/100))*w-f*(g/100);
   d:=d+1;
until (s<=u) and (t<=v) and (f<=w);
   writeln('kol-vo dnei po polnomy rau,iony ',d);
   readln;
end.