Составить программу расчета внесения известкового удобрения по формуле: Д=100*Н/(100-В)(100-К)П, где Н- полная норма СаСО3, т/га; В-влажность извести,%; К- количество недеятельных частиц,%; П- нейтрализующая способность СаСО3, %; Полная норма СаСО3 изменяется в пределах от 2 до 4 т/га с шагом 0,1т
га

var    H, B, K, P: real;begin    readln(H, B, K, P);    writeln('Д = ', 100 * H / ((100 - B) * (100 - K) * P));end.