Из произведения 4785 и 302 вычесть 45 в кубе. Результат разделить на 50.
program zadacha;
uses crt;
var otvet:real;
begin
otvet:= ((4785*302)-(45*45*45))/50;
writeln(otvet:5:5);
readkey;
end.