Program Pas;
Var
  x, y : real;
Begin
  write('Введите x - ');
  readln(x);
  if (x<0) then y:=x - x*x*x else
  if (x<=3) then y:=x*x else y:=9;
  writeln ('y = ', y);

    End.