Составить программу расчета внесения известкового удобрения по формуле: д=100*н/(100-в)(100-к)п, где н- полная норма сасо3, т/га; в-влажность извести,%; к- количество недеятельных частиц,%; п- нейтрализующая сасо3, %; полная норма сасо3 изменяется в пределах от 2 до 4 т/га с шагом 0,1т га
H, B, K, P: real;
begin
readln(H, B, K, P);
writeln('Д = ', 100 * H / ((100 - B) * (100 - K) * P));
end.