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.