Здравствуйте. помогите пожалуйста с первым заданием по информатике. Паскаль :) это довольно срочно

var x,a,y: real;beginreadln(a,x);if x<=0 then y:=a/2*(exp(x/a)+exp(-x/a)) else y:=4*a*a*a*(sqr(x)+4*sqr(a));writeln(y);end.