12345678Program example1;Var a,z,e:integer;beginwriteln('Chislo a:=');readln(a);z:=1-exp(ln(e)*2*a)*exp(3*ln(sin(2*a)))/sqrt(cos(a));writeln('z:=',z);end.