Помогите пожалуйста.
Составьте программы для вычисления следующих формул:
а) z=3+x^2-3x^3; б) d=x(sin x+cos x^2+IxI);

Программа:var x,z,d:real;beginwrite('x = '); readln(x);z:=3+x*x-3*x*x*x;writeln('z = ',z);d:=x*(sin(x)+cos(x*x)+abs(x));writeln('d = ',d);end.Пример:x = 3z = -69d = 6.68996923852557

//Задание avar x,z:real;begin  write('Введите Х ');  readln(x);  z:=3+sqr(x)-3*sqr(x)*x;  writeln('z = ',z);end.Тестовое решение:Введите Х 12z = -5037// Задание бvar x,d:real;begin  write('Введите Х ');  readln(x);  d:=x*(sin(x)+cos(x*x)+abs(x));  writeln('d = ',d:0:3);end.Тестовое решение:Введите Х 28d = 796.395