KURSDRAG

Program Kurs;
Uses crt;
var
s:integer;
p:array[1..3] of integer;
a:array[1..3] of integer;
q:array[1..5000] of real;
q1:array[1..50,1..3] of integer;
b,c,d,i,j:integer;
max:real;
begin
clrscr;
writeln('Vvedite kolichestvo resursov');
readln(s);
writeln('Vvedite kolichestvo resursov za edinicu');
for i:=1 to 3 do read(p[i]);
writeln('Vvedite koficient vajnosti(ot 1 do 3)');
for i:=1 to 3 do read(a[i]);

i:=1;
j:=1;
for b:=1 to s do
for c:=1 to s do
for d:=1 to s do
if b*p[1]+c*p[2]+d*p[3]<=s then
begin
q[i]:=exp(a[1]*ln(b))*exp(a[2]*ln(c))*exp(a[3]*ln(d));
q1[i,1]:=b;
q1[i,2]:=c;
q1[i,3]:=d;
i:=i+1;
end;
max:=q[1];
for i:=2 to 1000 do if q[i]>max then
begin
max:=q[i];
j:=i;
end;
writeln('Kolichestvo tovarov 1,2 i 3:');
writeln(q1[j,1],' ',q1[j,2],' ',q1[j,3]);
readln;
end.