Помогите пожалуйста решить. Программа выдаёт ошибку в строке 8 нет перегруженной подпрограммы с такими типами параметров. И вообще правильно ли составил программу исходя из условия? Спасибо

Program Primer2;
Var a,b,x,y,z:real;
begin
a := 0.36;
b:= 1.18;
x := 1.16;
if x>0.82 then y:=exp(ln((abs(z-a*x*x+b)+a))*x+1)
else if x<= 2 then y:=a*ln(abs((a*x*x+b*x-z)/(cos*cos*x+b)-sin(ln(abs(x)-b))));
z:=sqrt(abs(a*x*x-b*x*x*x));
write(y);
end.

Спасибо вам большое

А блок-схему не подскажете к ней?

Здравствуйте, не могли бы вы мне помочь??Прошу, осень важноПросто чем сможете

Var a,b,x,y,z:real;begina := 0.36;b:= 1.18;x := 1.16;if x>0.82 then y:=exp(ln(abs(z-a*sqr(x)+b)+a)*(x+1)) elseif (x<2) or (x=2) then beginz:=sqrt(abs(a*sqr(x)-b*exp(ln(x)*3)));y:=a*ln(abs(((a*sqr(x)+b*x-z)/(sqr(cos(x))+b))-sin(ln(abs(x))-b)));end;if y<>0 then writeln(y) else writeln('не определено');end.