Не могу решить, степени не позволяют написать простенькую программу?

Question

[shnuug]

Answer 1

[shnuug]

var
x,y,a,:real;
begin
write('x=');
readln (x);
if (x>0)then
y:=ln(abs((x)/sin(x)));
if (x<=0) then
y:= exp(sqr(x)-2*x+3);
a:= power(sin(y),2)/power(cos(y),2);
writeln('y=',y);
writeln('a=',a);
end.

Answer 2

[Hemul GM]

Power(2, 4) - 2 в степени 4

Comments

[shnuug]

это все понятно, я про функцию e говорю, понимаю что нужно написать power(e,... вот как тут x отобразить?)

[Hemul GM]

Power(e, Power(x, 2) - 2 * x + 3);