Ребят помогите буду оч благодарен

var x,y,e:real;beginread(X);e:=power(2.7,-x*x);if x>0 then y:=(sin(x)*sin(x)-1)/(e+1)       else y:=(sin(x)/cos(x))*(sin(x)/cos(x));writeln(y);end.