Объяснение:
Программа:
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.
