Pascal-Нет перегруженной подпрограммы с такими типами параметров

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

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.