var
  arr : array [1..5, 1..5] of integer;
  i, j, value, srZnach : integer;
begin
  value := 1;
  for j := 1 to 5 do
    for i := 1 to 5 do
    begin
      arr[j, i] := value;
      Inc(srZnach, value);
      Inc(value);
    end;
  for j := 1 to 5 do
  begin
    for i := 1 to 5 do
      write(arr[j, i]:3);
    writeln;
  end;
  writeln('Среднее значение: ', srZnach / 25);
end.