Помогите пожалуйста! В PascalABC составить программу вычисления значения функции:

Question

Помогите пожалуйста! В PascalABC составить программу вычисления значения функции:

---

Answer 1

var x, y: real;

begin

 writeln('x=');

 readln(x);

 if (x>0) and (x

 else y:=(2*(x+5))/3;

 write(y);

end.