Const
 n = 48;

Var
 f,g: file of integer;
 A: array[1..n] of integer;
 max,B,m: integer;
 i,j: integer;


Begin
 Assign(f, 'd:\f.dat');
 Rewrite(f);
 Randomize;
 for i := 1 to n do
  begin
   B:=-20+random(50);
   write(f,B);
  end;
 close(f);
 Reset(f);
 for i := 1 to n do
  begin
   Read(f,A[i]);
   write(A[i]:4);
  end;
 Close(f);
 Writeln;
 Writeln;

 Assign(g, 'D:\g.dat');
 Rewrite(g);

 m:=n div 5;

 for i:=1 to m do
  begin
   Max:=-100;
   for j:=5*(i-1)+1 to 5*i do
    if A[j]>Max then Max:=A[j];
   write(g,Max);
   write(Max:4);
  end;

 Max:=-100;
 for j:=5*m+1 to n do
  if A[j]>Max then Max:=A[j];
 write(g,Max);
 write(Max:4);

 Close(g);

 Readln
End.