procedure mult_escalar(var mat: tipo_matriz; x: integer);
var
   i, j	: integer;
begin
   for i := 1 to n_linhas do
      for j:= 1 to n_colunas do
	 mat [i,j] := mat [i,j] * x;
end;