KURS2

Program Kursovoi;
uses crt;
{const
{f:array[1..4,1..3] of real=((0.7,0.8,0.9),(0.5,0.7,0.8),(0.7,0.9,0.95),(0.6,0.7,0.9));
u:array[1..4,1..3] of integer=((10,20,30),(20,40,50),(10,30,40),(20,30,40)); }
var
x,i,j,a,b,c,d:integer;
max:real;
f:array[1..4,1..3] of real;
u:array[1..4,1..3] of integer;
resh:array[1..100] of real;
rash:array[1..100] of integer;
l:array[1..4,1..3] of real;
tmp1:array[1..100] of real;
tmp2:array[1..100] of integer;
begin
clrscr;

writeln('Vvedite kolichestvo deneg:');
readln(x);

clrscr;
writeln('Vvedite nadejnost i stoimost blokov:');
for j:=1 to 3 do
for i:=1 to 4 do
begin
write('Nadejnost bloka: ',i,' ',j,':');
readln(f[i,j]);
write('Stoimost bloka: ',i,' ',j,':');
readln(u[i,j]);
clrscr;
end;

i:=1;
for a:=1 to 3 do
for b:=1 to 3 do
for c:=1 to 3 do
for d:=1 to 3 do
begin
resh[i]:=f[1,a]*f[2,b]*f[3,c]*f[4,d];
rash[i]:=u[1,a]+u[2,b]+u[3,c]+u[4,d];
i:=i+1
end;
j:=1;
for i:=1 to 100 do
if rash[i]<=x then
begin
tmp1[j]:=resh[i];
tmp2[j]:=rash[i];
j:=j+1;
end;
{for i:=1 to 30 do writeln(tmp1[i]:5:3,' ',tmp2[i]); }
max:=tmp1[1];
for i:=1 to 100 do if tmp1[i]>max then max:=tmp1[i];
writeln(max:5:3);
readln;
end.