Question

Найдите ошибку плииизз
program PR1;
var a,b,y,r,d,q,x:Real;
begin
writeln ('введи значения a,b,y,r,d,q');
readln (a,b,y,r,d,q);
x:= cos(exp(a)*ln(y))-sin(exp(b*8*q)*ln(r))/(exp(2*a*b)*ln(d))+18.31;
writeln('X=',X);
end.