b2) and ((abs (Ox1-i) <= abs (Ox1-x1)) or (abs (Ox2-j) <= abs (Ox2-x2))) : = i;
TForm1.calcMax ();// находімточкумаксімумаi, j, x1, x2: double;: = X; x2: = Y;: = 0; j: = 0; (a11 * i + a12 * j <= b1) and (a21 * i + a22 * j <= b2) and ((abs (Ox1-i)> = abs (Ox1-x1)) or (abs (Ox2-j)> = abs (Ox2-x2))): = i;
end;
.