Вычислить выражение по приведённой формуле. Значения переменных A,B,C,D задать самостоятельно X=(AcosA(1+B^3 ) )/(C(1-D^2 ) ) — Pascal(Паскаль)

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.