[i];
b [j]: = b [j]-a [i];
a [i]: = 0;
i: = i-1;
k: = 1;
end;
if (B [j]-a [i] = 0) and (k = 0) then
begin
c [i, j]: = a [i];
a [i]: = 0;
b [j]: = 0;
i: = i-1;
j: = j-1;
end;
if (I = 0) or (j = 0) then break;
until false;
{висновок на екран базисного рішення}
clrscr;
textcolor (white);
for i: = 1 to x do
begin
for j: = 1 to y do
if j = y then write (c [i, j]: 6, 'в”‚', a1 [i])
else
write (c [i, j]: 6);
writeln;
end;
write (' '); p> for i: = 1 to y * 6-4 do
write (# 196);
writeln ('в”?');
for j: = 1 to y do
write (b1 [j]: 6);
readln;
end.
