Question

Написать программу для вычисления z по формуле:

Answer 1

begin

 var x := ReadReal('Введите X');

 Println('Z:= ', -1.5 * (Sqr(x) * x) / 4 - 3 * Sqrt(Sqr(x)));

end.