Ответ:

Объяснение:

Программа:

Verified answer

Var x: real;

Begin

readln(x);

If (x>=0)And(x<3)

Then write('y=',sqrt(x+1))

Else

If (x>5)And(x<>7)

Then write('y=',3*x*x-2)

Else write('y=',1/x+4);

End.