Помогите пожалуйста!!!
Надо написать программу

var x,y: real;beginreadln(x);if x<0 then y:=2*sqr(x)-12*x elseif x>0 then y:=sqr(cos(x));writeln(y);end.