I can't decide, degrees don't allow me to write a simple program?

Question

Pascal

Answer 1

varx
,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

Power(2, 4) - 2 to the power of 4