AnPol_B1

Const
    cArrSize = 10;
Type
    tArr = Array [0..cArrSize - 1] Of Real;
    tArrC = Array [0..cArrSize * 2 - 1] Of Real;
Var
    A, B: tArr;
    C: tArrC;
    Prod: Real;

Procedure GenerateArr(Var aArr: tArr);
Var
    I: Integer;
Begin
    For I:= 0 To cArrSize - 1 Do aArr[I]:= Random * 33 - 20;
End;

Procedure SortArr(Var aArr: Array Of Real; aArrSize: Integer);
Var
    I, J: Integer;
    TempR: Real;
Begin
    For I:= aArrSize - 1 DownTo 0 Do
      For J:= 0 To I - 1 Do
        If aArr[J] > aArr[J + 1] Then Begin
          TempR:= aArr[J];
          aArr[J]:= aArr[J + 1];
          aArr[J + 1]:= TempR;
        End;
End;

Procedure MergeArrs(Var aResArr: tArrC; Var aArr1: tArr; Var aArr2: tArr);
Var
    I: Integer;
Begin
    For I:= 0 To cArrSize - 1 Do aResArr[I]:= aArr1[I];
    For I:= cArrSize To cArrSize * 2 - 1 Do aResArr[I]:= aArr2[I - cArrSize];
    SortArr(aResArr, cArrSize * 2);
End;

Var
    I: Integer;

Begin
    Randomize;
    GenerateArr(A);
    GenerateArr(B);
    SortArr(A, cArrSize);
    SortArr(B, cArrSize);
    MergeArrs(C, A, B);
    Prod:= 1.0;
    For I:= 0 To cArrSize * 2 - 1 Do Prod:= Prod * C[I];
    WriteLn('Prod = ', Prod:7:3);
    ReadLn;
End.