Напишите программу Заранее огромное спасибо)

var
x:real;
Begin
Write('Введите x -> ');
Readln(x);
Writeln('Y = ', (sqrt(25*x + 2 * abs(x)) + 15)/(x*x*x - 2));
end.