AChep

program matrix_solver;

const 
  MAX_LEN = 10;

type
  MATRIX =  record 
    m : array [1..MAX_LEN, 1..MAX_LEN] of real;
    n : integer;
  end;