Вычислить значение f(x)

В этом задании при вычислении f(x) необходимо не только правильно учесть последовательность вычислений, но и вводя дополнительные переменные, записывать выражения так, чтобы дважды не высчитывать одни и те же значения, например: с^2, 3b^2 и т.д.

f(x)=x+ab-4

x=a^2+3ba^2-3b

b=3a^2 -c^2

c = 3a/2

значение a- задать с клавиатуры.

ОТДЕЛ Задание+;ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;ПЕР  a, b, c, x, f, b3, a_2: ВЕЩ;УКАЗ  a := Приём.Число();  c := 3 * a / 2;  a_2 := a * a;  b := 3 * a_2 - c * c;  b3 := 3 * b;  x := a_2 + b3 * a_2 - b3;  f := x + a * b - 4;  Вывод.ЧВещ("%g", f, 0, 0, 0)КОН Задание.