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;
writeln('Введите аргумент');
read(x);
writeln('y=',y(x):0:3);
end.
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.