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;
procedure Kiir ( m: in MATRIX );
procedure Beolvas ( m: out MATRIX );
function Beolvas (str: STRING := "" ) return MATRIX;

end MATRIXOK;