Ответ:

№9

var

y,x:Double;

begin

Readln(x);

If x > 1 then y:= (x*x)/(2*x+1);

If x < -2 then y:= -3*x+5;

If (x>=-2) and (x<=1) then y:=x;

Writeln(y);