Составить программу в PaskalABC(задание ** фото) ​

Question

Составить программу в PaskalABC(задание на фото) ​

---

Answer 1

function y(a :real) :real;

begin

 if a

   y:=abs(a)-5

 else if ((a>=-6) and (a

   y:=sqrt(a+6)

 else

   y:=(3*a*a-2)/a;

end;

var x :real;

begin

writeln('Введите аргумент');

read(x);

writeln('y=',y(x):0:3);

end.