Все приложено внизу.
Зачем переводить в радианы? Потому что функция sin(), и другие тригонометрические функции работают с радианами
var
a, b, a1, b1, cost, w, h: integer;
begin
readln(a, b, a1, b1, cost);
w := a div a1;
if a mod a1 <> 0 then inc(w);
h := b div b1;
if b mod b1 <> 0 then inc(h);
writeln(w * h);
writeln(w * h * cost);
end.
В 2с/с : 1000 -10 = 110 (в 2/с) - ответ, столько яблок упало (в 2с/с)
Проверка в 10с/с
10 (в2с/с) = 2(в10с/с)
1000 (в2с/с)= 8 (в 10с/с)
8-2=6 (в10с/с) 6(в10с/с)=110 (в 2с/с)