// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadInteger3('a,b,c =');
var k:= ReadInteger('k =');
var (x,y,z):=ReadInteger3('x,y,z =');
Writeln(min(x div(a*k),min(y div(b*k), z div(c*k))));
end.
Пример:
a,b,c = 2 3 4
k = 2
x,y,z = 4 8 19
1