Составить программу в paskalabc( на фото) ​

function y(a :real) :real;

begin

 if a<-6 then

   y:=abs(a)-5

 else if ((a>=-6) and (a<=0)) then

   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.