Помогите

написать программу в Паскале 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.

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

1)Гипотенуза прямоугольного треугольника равна 89 а разность катетов равна 41. Найдите площадь.. на сколько я знаю с помощью системы уравнений решается

)Площадь прямоугольного треугольника равна 89 а разность катетов треугольника 41. найдите площадь...тоже с помощью системы уравнения

3) два натуральных читсла найдите сумма которых равна 11 а произведение 30