param N := 20;

var x{1..N};

minimize f:
sum {i in 1..5} 
(100*(x[i]^2-x[i+5])^2+(x[i]-1)^2+90*(x[i+10]^2-x[i+15])^2+(x[i+10]-1)^2+10.1*((x[i+5]-1)^2+(x[i+15]-1)^2)+19.8*(x[i+5]-1)*(x[i+15]-1));

data;
var x:=
1	-3
2	-3
3	-3
4	-3
5	-3
6	-1
7	-1
8	-1
9	-1
10	-1
11	-3
12	-3
13	-3
14	-3
15	-3
16	-1
17	-1
18	-1
19	-1
20	-1;

solve;

display x;