ошибка в Pascal

[zill]

Вот помогите пожалуйста найти ошибку, заранее благодарен и жду ответа!


выдает ошибку 207 =(

[Valio]

1. Пишите задание, чтоб не гадать что делает код.

2. Исходный код обычно является текстом, а не картинкой. Этот код можно найти в файле *.pas открыв его блокнотом.

3.

207 Invalid floating point operation (Недопустимая операция с плавающей запятой) .
Возможные причины сообщения:
• аргумент функций TRUNC или ROUND не может быть преобразован в целое число, находящееся внутри диапазона типа LONGINT (от -2147483648 до +2147483647);
• отрицательный аргумент функции SQRT (извлечение квадратного корня);
• аргумент функции LN (логарифм) равен нулю или имеет отрицательное значение;
• произошло переполнение стека сопроцессора.

4. Из всего возможного в пункте 3 в программе виден только LN. Вероятно там и ошибка.

[zill]

вот задание

вот код:

program lr4;
uses crt;
var x,a,b, y1,y2,y3,y4,y5,y6,y7,y8,y9,y10,y11,y12,y:real;
begin clrscr;
write('a= ');     readln(a);
write('b= ');     readln(b);
write('x= ');     readln(x);
y1:=abs(x-a);
y2:=ln(y1);
y3:=a+b*x;
y4:=exp(1/2*ln(y3));
y5:=2*y4;
y6:=x-b;
y7:=arctan(x);
y8:=y6/y7;
y9:=ln(y8)/ln(10);
y10:=sin(y9);
y11:=exp(1/5*ln(y10));
y12:=y5+y11;
y:=exp(1/3*ln(y12));
write('y=',y:6:3); readln; end.

[Stilet]

y10:=sin(y9);

Вот тут дается отрицательное число в результате, потому логарифм дальше и падает.