KURSURIA

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

i:=1;
j:=1;
for b:=1 to p[1] do
for c:=1 to p[2] do
for d:=1 to p[3] do
for e:=1 to p[4] do
for f:=1 to p[5] do
if b+c+d+e+f<=s then
begin
q[i]:=exp(a[1]*ln(b/p[1]))*exp(a[2]*ln(c/p[2]))*exp(a[3]*ln(d/p[3]))
*exp(a[4]*ln(e/p[4]))*exp(a[5]*ln(f/p[5]));
i:=i+1;
end;
max:=q[1];
for i:=2 to 10000 do if q[i]>max then max:=q[i];


writeln(max:10:8);
readln;
end.