25 БАЛЛОВ. Паскаль. Решите 1 в паскале и сделай схему.

var y, x: real;

begin

 write('x = ');

 read(x);

 y:=sqr(x)-6*x;

 if (y>=0) then begin y:=sqrt(y)/(x+3);

                      write('y = ', y:5:3);

                end

           else write('В процессе вычислений корень оказался отрицательным, поэтому вычислить его невозможно')

end.