Судя по скриншоту, это язык Паскаль.

Progam Primer;

Var a, b, c, x, z : integer;

Begin

  z:=0;

  Write('Введите значения переменных a, b, c, x: ');

  ReadLn(a, b, c, x);

  z:=abs((a*x-b)*x+c)*x-d;

  Write('[(ax-b)x+c]x-d = ', z);

End.