package MATRIXOK is

type Index is new INTEGER;
type ERTEK is new FLOAT digits 5;

type MATRIX is array (INDEX range <> , INDEX range <>) of ERTEK;

function "+" ( a, b: MATRIX ) return MATRIX;
function "*" ( a, b: MATRIX ) return MATRIX;

end MATRIXOK;