помогите пожалуйста, выдает ошибку и не даёт решить пример,помогите пожалуйста!!
program sistema;
var
x, D: real;
begin
write('введите значение x');
read(x);
if x<=0 then D:=cos(3*(x*sqr(x)))*sqr(x)+0.2*abs(x) else
if x>0 then D:=ln(sqrt(0.5*x)+(sqr(sin))*0.1*x); // - ошибка в этой строке где +
write('ответ',D);
end.