информатика 10 класс

var x,y:real;

begin

readln(x);

if x <=-1 then

y:=-1/sqr(x)

else if ((x>-1) and (x<=2)) then  y:=sqr(x)

else if x > 2 then y:=-4;

writeln(y);

end;