param N := 2;

var x{1..N};

minimize f:
x[1]^2 + x[2]^2;

subject to cons1:
x[1] + x[2] - 1 >= 0;

subject to cons2:
x[1]^2 + x[2]^2 - 1 >= 0;

subject to cons3:
9*x[1]^2 + x[2]^2 - 9 >= 0;

subject to cons4:
x[1]^2 - x[2] >= 0;

subject to cons5:
x[2]^2 - x[1] >= 0;

data;
var x:=
1	3
2	1;

solve;

display x;