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

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