Если у Марии было 3 собаки, то сколько их стало, когда Мария отдала 1 собаку Маше?
Вроде так, но без конкретных примеров сложно проверить
uses Math;
var w,x,y,z : real;
begin
x := 0.4* Power(10,4);
y := -0.875;
z := 0.475 * Power(10,-3);
w := Power(abs(cos(x) - cos(y)), 1 + 2 * sin(y) * sin(y)) * (1 + z + (z*z)/2 + Power(z,3)/3 + Power(z,4)/4);
writeln(w);
end.