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

Программка:
var x,z,d:real;
begin
write('x = '); readln(x);
z:=3+x*x-3*x*x*x;
writeln('z = ',z);
d:=x*(sin(x)+cos(x*x)+абс(x));
writeln('d = ',d);
end.

Пример:
x = 3
z = -69
d = 6.68996923852557

//Задание a
var x,z:real;
begin
  write('Введите Х ');
  readln(x);
  z:=3+sqr(x)-3*sqr(x)*x;
  writeln('z = ',z);
end.

Тестовое решение:
Введите Х 12
z = -5037

// Задание б
var x,d:real;
begin
  write('Введите Х ');
  readln(x);
  d:=x*(sin(x)+cos(x*x)+абс(x));
  writeln('d = ',d:0:3);
end.

Тестовое решение:
Введите Х 28
d = 796.395