Question

Решить в Free Pascal

Answer 1

Держи! Код на изображении :) 

Answer 2

$\displaystyle \left|x^2-x^3\right|- \frac{7x}{x^3-15x}=x^2\left|1-x\right|-\frac{7}{x^2-15}, \ x\ne 0, \ x\ne\sqrt{15}$

var
  x: real;

begin
  Write('Введите значение аргумента, не равное нулю: '); Readln(x);
  if x = 0 then Writeln('Нулевой аргумент недопустим!')
  else Writeln(sqr(x) * abs(1 - x) - 7 / (sqr(x) - 15))
end.

Тестовое решение:
Введите значение аргумента, не равное нулю: 24.35
13844.7282626493