Program P3;
var A,B,C,D,X,z:real;
begin
writeln('Vvedite znacenie A:'); readln(A);
writeln('Vvedite znacenie B:'); readln(B);
writeln('Vvedite znacenie C:'); readln(C);
writeln('Vvedite znacenie D:'); readln(D);
 
z:=B*B*B;
X:=(A*cos(A)*(1+z))/(C*(1-sqr(D))); {X=(AcosA(1+B^3 ) )/(C(1-D^2 ) ) }
 
writeln('Rezultat X= ',X:0:2);
readln;
end.