Ежик весит n граммов, заяц - m граммов. сколько требуется пар этих животных, чтобы перевесить слона весом s тонн ? написать на скрипте и бэйсике можно написать на паскале, я перепишу

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.