Написать программу в паскале z=1-e^2a*sin^3(2a)/кореньcos(a) как считаю я: program example1; var a,z: real; begin writeln('введите число a'); readln(a); z: =1-exp(2*a)*sin(2*a*3)/sqrt(cos(a)); writeln('вычислить=',z); end. но программа выдает ошибку, не пойму в чём дело, подскажите .
Program example1;
Var a,z:real;
begin
writeln('Введите число a');
readln(a);
z:=1-exp(ln(e)*2*a)*exp(ln(sin(2*a))*3)/sqrt(cos(a));
writeln('Z= ',z);
end.