param N := 2;

var x{1..N};

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

subject to cons1:
x[1]*(x[1] - 4) - 2*x[2] + 12 = 0;

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

solve;

display x;