Вычислить значение функции: y=sin(x/(3+x^5))+lg(1,3x+x^3) — Pascal(Паскаль)

var x: real;
begin
  write('X = ');
  readln(x);
  if (x * x * x * x * x = -3) or (1.3 * x <= x * x * x)
    then write('Значение функции не определено')
    else write('Y = ', sin(x / (3 + x * x * x * x * x)) + ln(1.3 * x + x * x * x) / ln(10));
  readln
end.