Var
N, M, S : integer;
res : real;
begin
write('Вес ёжика: ');
readln(N);
write('Вес зайца: ');
readln(M);
write('Вес слона: ');
readln(S);
res := S * 1000 * 1000 / (N + M);
res := trunc(res) + ord(frac(res) <> 0); //Округляем до большего целого
writeln('Нужно пар: ', res);
end.