Составить программу вычисления данного выражения: y=(|x*x-6*x|+2*|x|)/(|x*x*x+3*x*x-5*x|+4 . Вычисление значения модуля оформить в виде функции .|x|=x,если x>=0, |x|=-x,если x<0 - Pascal(Паскаль)

uses crt;
function MyAbs(x:real):real;
begin
if x>=0 then MyAbs:=x
else  MyAbs:=-x;
end;
var x,y:real;
begin
clrscr;
write('x=');
readln(x);
y:=(MyAbs(x*x-6*x)+2*Myabs(x))/(MyAbs(x*x*x+3*x*x-5*x)+4);
write('Y=',y:0:2);
readln
end.