Неверная вещественная операция в 12 строке - Pascal ABC

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

Program PR2;
Var A,B,K,y,x:real;
Begin
Write('A=');
Readln(A);
Write('B=');
Readln(B);
Write('K=');
Readln(K);
Write('x=');
Readln(x);
y:=exp(1/5*(A+(sin(x)/cos(x)))*ln(A+(sin(x)/cos(x))))-(sqr(arctan(x/sqrt(1-sqr(x)))))/
ln(sqr(x)*x)+abs(((sin(B*sqr(K)))/(cos(B*sqr(K))))*exp(x));
Writeln('y=',y:6:3);
END.

Пожалуйста,скажите,что не так!

Решение задачи: «Неверная вещественная операция в 12 строке»

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

Program PR2; Var A,B,K,y,x:real; Begin Write('A='); Readln(A); Write('B='); Readln(B); Write('K='); Readln(K); Write('x='); Readln(x); y:=exp(1/5*(A+(sin(x)/cos(x)))*ln(A+(sin(x)/cos(x))))-(sqr(arctan(x/sqr(1-sqr(x)))))/ ln(sqr(x)*x)+abs(((sin(B*sqr(K)))/(cos(B*sqr(K))))*exp(x)); 
Writeln('y=',y:6:3); END.

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

В данном коде выполняется следующая последовательность действий:

В первой строке объявляются переменные A, B, K, y и x типа real.
Во второй, третьей, четвертой и пятой строках происходит ввод значений переменных A, B, K и x с помощью функции Readln.
В шестой строке вычисляется значение переменной y по формуле: y = exp(1/5(A+(sin(x)/cos(x)))ln(A+(sin(x)/cos(x))))-(sqr(arctan(x/sqr(1-sqr(x)))))/ ln(sqr(x)x)+abs(((sin(Bsqr(K)))/(cos(Bsqr(K))))exp(x)).
В седьмой строке выводится значение переменной y с помощью функции Writeln, при этом количество знаков после запятой равно 6, а разделитель между знаками равенства и числами равен 3.
В восьмой строке заканчивается выполнение программы.