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

Question

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

---

Answer 1

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.