Var
 Alpha:Array[1..15] of Real;
 Beta,Gamma:Array[1..7] of Real;
 i:Integer;
 S,P:Real;
Begin
 Randomize;
 S:=0;
 P:=1;
 Writeln('Array Alpha:');
 For i:=1 to 15 do
  begin
   Alpha[i]:=Random*20;
   Write(Alpha[i]:8:2);
   S:=S+Alpha[i];
  end;
 Writeln;
 Writeln('Array Gamma:');
 For i:=1 to 7 do
  begin
   Gamma[i]:=Random*10+0.1;
   Write(Gamma[i]:8:2);
   P:=P*Gamma[i];
  end;
 Writeln;
 Writeln;
 Writeln('Array Beta:');
 For i:=1 to 7 do
  begin
   Beta[i]:=Gamma[i]*(Gamma[1]+S)/(Alpha[1]+P);
   Write(Beta[i]:8:2);
  end;
 Readln
End.