const
  n = 5;
  m = 5;
var
  A: array[1..n, 1..m] of integer;
  maxi, maxj, max: integer;
  i, j: integer;
  S:real;

begin
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
      a[i, j] := random(10, 99);
  end;
  begin
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(a[i, j]:4);
      writeln;
    end;
  end;
  S := 0;
  for i := 1 to n do
    for j := 1 to m do
      S := S + A[i, j];
  Writeln('Сумма всех элементов матрицы = ', S:2);
end