1
2
3
4
5
6
7
8
Program example1;
Var a,z,e:integer;
begin
writeln('Chislo a:=');
readln(a);
z:=1-exp(ln(e)*2*a)*exp(3*ln(sin(2*a)))/sqrt(cos(a));
writeln('z:=',z);
end.