Pascal. Error 207: Invalid floating point operation

[yulia.a]

Здравстуйте!
Написав программу для решения примера (прикреплен ниже), столкнулась с проблемой, что при попытке введения каких-либо значений выскакивает ошибка Error 207: Invalid floating point operation. Искала в Интернете что-нибудь подобное, там писали, что проблема в извлечении корня из отрицательного числа, но у меня-то извлечение корня из числа по модулю...
Помогите, пожалуйста, найти ошибку!

Program LAB2;
  Var
    a,x,b,y,c,d,f,g,k:Real;
  Begin
    WriteLn('Введите значение a,x,b');
    Read(a,x,b);
    WriteLn('a=',a,'x=',x,'b=',b);
    y:=-(exp(ln(a)*5)*x+b*(ln(cos(x*x))*4)+b*x);
    c:=abs(-a*x+y);
    d:=sqrt(c);
    f:=abs(x+exp(ln(y)*2));
    g:=ln(f);
    k:=d/g;
    WriteLn('Ответ:');
    WriteLn('y=',y,'c=',c,'d=',d,'f=',f,'g=',g,'k=',k);
  End.

[Аватар]

ln(cos(x*x))

cos(x*x) запросто может быть отрицательным. И что тогда обозначает логарифм от него? Загадка. Так что косинус в четвертую степень возводите без всяких логарифмов. Там еще и экспоненту потеряли

[yulia.a]

Все получилось! Огромное спасибо *__*