Помогите пожалуйста!!! Ежик весит 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.