asdfghj

program project1;
Type ArrInt = array[1..5] of Integer;
  Matriz = array[1..10] of ArrInt;

function inicializarMatriz():Matriz;
var i,j,k:Integer;
  mat:Matriz;
begin
  k:=1;
  for i:=1 to 10 do begin
      for j:=1 to 5 do begin
        mat[i][j] := k;
        inc(k);
      end;
  end;
  inicializarMatriz := mat;
end;
var mat:Matriz;
  i,j:Integer;
begin
  mat := inicializarMatriz();
  for i:=1 to 10 do begin
      for j:=1 to 5 do begin
        write(mat[i][j]:2,' ');
      end;
      writeln();
  end;
  readln();
end.