Построить программу информатика

Question

Построить программу информатика

---

Answer 1

Var a,x,y: real;
begin
readln(x,y);
if x>0 then y:=2*a*exp(ln(x+1)/4);
if x=0 then y:=2*a;
if x<0 then y:=2*a*exp(ln(abs(x+1))/3);<br>writeln(y);
end.