Судя по скриншоту, это язык Паскаль.
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.
Судя по скриншоту, это язык Паскаль.
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.