Напишите программу

Заранее огромное спасибо)

Спасибо огромное

Спасибо огромное

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