KURSAHVE

Program Kurs;
Uses crt;
{const
o:array[1..3,1..4] of integer=((2,3,4,4),(3,3,2,3),(1,3,4,4));}
var
o:array[1..3,1..4] of integer;
x:array[1..3,1..4] of integer; {tiraj}
m:array[1..3] of integer; {kolichestvo}
n:array[1..3,1..4] of integer; {rashod}
q:array[1..5000] of real;
q1:array[1..50,1..4] of integer;
a,b,c,d,e,f,g,h,i,l,k,r,j:integer;
min:real;
begin
clrscr;
writeln('Vvedite kolichestvo resursov');
for i:=1 to 3 do readln(m[i]);

writeln('Vvedite rashod bumagi na odnu knigu)');
for i:=1 to 3 do
for j:=1 to 4 do read(n[i,j]);

writeln('Vvedite sebestoimost j knigi iz i bumagi)');
for i:=1 to 3 do
for j:=1 to 4 do read(o[i,j]);


r:=1;
min:=100;
for a:=0 to round(m[1]/n[1,1]) do
for b:=0 to round(m[1]/n[1,2]) do
for c:=0 to round(m[1]/n[1,3]) do
for d:=0 to round(m[1]/n[1,4]) do
for e:=0 to round(m[2]/n[2,1]) do
for f:=0 to round(m[2]/n[2,2]) do
for g:=0 to round(m[2]/n[2,3]) do
for h:=0 to round(m[2]/n[2,4]) do
for i:=0 to round(m[3]/n[3,1]) do
for j:=0 to round(m[3]/n[3,2]) do
for k:=0 to round(m[3]/n[3,3]) do
for l:=0 to round(m[3]/n[3,4]) do
if a*n[1,1]+b*n[1,2]+c*n[1,3]+d*n[1,4]<=m[1] then
if e*n[2,1]+f*n[2,2]+g*n[2,3]+h*n[2,4]<=m[2] then
if i*n[3,1]+j*n[3,2]+k*n[3,3]+l*n[3,4]<=m[3] then
begin
q[r]:=a*o[1,1]+b*o[1,2]+c*o[1,3]+d*o[1,4]+
e*o[2,1]+f*o[2,2]+g*o[2,3]+h*o[2,4]+
i*o[3,1]+j*o[3,2]+k*o[3,3]+l*o[3,4];
{ writeln('q[',r,']=',q[r]:8:3);
writeln(min:8:3);
writeln(a*n[1,1]+b*n[1,2]+c*n[1,3]+d*n[1,4]);
readln; }
if a*n[1,1]+b*n[1,2]+c*n[1,3]+d*n[1,4]>=m[1]/2 then
if e*n[2,1]+f*n[2,2]+g*n[2,3]+h*n[2,4]>=m[2]/2 then
if i*n[3,1]+j*n[3,2]+k*n[3,3]+l*n[3,4]>=m[3]/2 then
if q[r]>0 then
if q[r]<min then
begin
min:=q[r];
x[1,1]:=a;
x[1,2]:=b;
x[1,3]:=c;
x[1,4]:=d;
x[2,1]:=e;
x[2,2]:=f;
x[2,3]:=g;
x[2,4]:=h;
x[3,1]:=i;
x[3,2]:=j;
x[3,3]:=k;
x[3,4]:=l;
end;
r:=r+1;
end;
writeln('Konec');
writeln(x[1,1],' ',x[1,2],' ',x[1,3],' ',x[1,4]);
writeln(x[2,1],' ',x[2,2],' ',x[2,3],' ',x[2,4]);
writeln(x[3,1],' ',x[3,2],' ',x[3,3],' ',x[3,4]);
readln;
end.