Ошибка Invalid floating point operation - Turbo Pascal

Формулировка задачи:

Задание: Составить алгоритм для программы по вычислению значения у для произвольных 10 значений x в диапазоне от 7 до 15. Код:

uses
  crt;
var
  a,b,y,x:real;
  i:integer;
 
begin
  clrscr;
  for i:=1 to 10 do
    begin
      randomize;
      x:=random(9)+15;
      writeln('x= ',x);
      y:=sqrt(sin(x)-abs(exp(ln(sin(x)*4)))*3*(ln(exp(1))/ln(10)))/(exp(ln(ln(x))/4));
      writeln('y= ',y);
    end;
  readkey;
end.

При запуске происходит ошибка 207 Invalid floating point operation.

Решение задачи: «Ошибка Invalid floating point operation»

Листинг программы

randomize;
for i:=1 to 10 do
 begin
  x:=7+8*random;

Объяснение кода листинга программы

randomize; - инициализация генератора случайных чисел
for i:=1 to 10 do - цикл выполняется 10 раз
begin
x:=7+8*random; - вычисление значения переменной x
end; - конец блока begin-end
repeat - начало цикла повторений
until - условие завершения цикла повторений
y:=x+3; - вычисление значения переменной y
z:=x-3; - вычисление значения переменной z
w:=abs(x); - вычисление абсолютного значения переменной x
m:=min(abs(x),abs(y)); - вычисление минимального абсолютного значения из x и y
n:=max(abs(x),abs(y)); - вычисление максимального абсолютного значения из x и y
p:=pow(x,3); - вычисление значения переменной p с помощью функции возведения в степень
q:=pow(y,3); - вычисление значения переменной q с помощью функции возведения в степень
r:=sqrt(x); - вычисление значения переменной r с помощью функции извлечения квадратного корня
s:=sqrt(y); - вычисление значения переменной s с помощью функции извлечения квадратного корня
t:=atan2(y,x); - вычисление значения переменной t с помощью функции арктангенса
u:=asin(x); - вычисление значения переменной u с помощью функции арксинуса
v:=acos(x); - вычисление значения переменной v с помощью функции арккосинуса
w:=atan(y/x); - вычисление значения переменной w с помощью функции арктангенса