Суточный рацион коровы составляет a кг сена, b кг...

Задание:

Суточный рацион коровы составляет a кг сена, b кг силоса и c кг комбикорма. В хозяйстве, содержащем стадо из k голов, осталось x центнеров сена, y тонн силоса и z мешков комбикорма по 50 кг. Сколько еще дней хозяйство сможет кормить коров по полному рациону.

program z5;
var
  a,b,c,x,y,z,kol,r:real;
Begin
readln (a,b,c);
readln (x,y,z);
readln (r);
   x:=int(x*100/a);
   y:=int(y*1000/b);
   z:=int(z*50/c);
   kol:=0;
   if (x>=r) and (y>=r) and (z>=r) then
   begin
       if (x<=y) and (x<=z) then kol:=int(x/r);
       if (y<x) and (y<=z) then kol:=int(y/r);
       if (z<x) and (z<y) then kol:=int(z/r);
   end;
   writeln (kol);
end.