sets:x/1..106/:m;y/1..5/:;link(x,y):p,d,c;endsetsmax=@sum(y(j):@sum(x(i):@sum(x(k)|k#ge#i+1:p(k,j)*m(i)*d(k,j)/p(i,j)-m(i)*c(i,j))));@for(x(i)|i#le#105:m(i)<=m(i+1)); @for(link:@bin(c);@bin(d));
