Var
 B:ARRAY[1..5,1..5] of Real;
 i,j:Integer;
 Med:Real;
BEGIN
 Med:=0;
 For i:=1 to 5 do
  For j:=1 to 5 do
   begin
    Write('B[',i,',',j,']= ');
    ReadLn(B[i,j]);
    Med:=Med+B[i,j];
   end;
 Med:=Med/25;
 WriteLn;
 WriteLn('Medium value is ',Med:10:3);
 WriteLn;
 WriteLn('Initial matrix:');
 WriteLn;
 For i:=1 to 5 do
  begin
   For j:=1 to 5 do
    Write(B[i,j]:10:3);
   WriteLn;
  end;
 WriteLn;
 WriteLn('Final matrix:');
 WriteLn;
 For i:=1 to 5 do
  begin
   For j:=1 to 5 do
    Write(B[i,j]/Med:10:3);
   WriteLn;
  end;
 ReadLn;
END.