param N := 3;

var x{1..N};

minimize f:
0.01*(x[1]-1)^2+(x[2]-x[1]^2)^2;

subject to cons1:
x[1]+x[3]^2+1 = 0;

data;
var x:=
1	-2
2	3
3	1;

solve;

display x;