Составить программу : |x² - 4x| - x³-x²-4x

Question

Составить программу : |x² - 4x| - x³-x²-4x

Answer 1

Var x,y:real;
begin
writeln ('Введите x:');
readln (x);
y:=abs(x*x-4*x)-x*x*x-x*x-4*x;
writeln (y);
end.