elrata respondió:
Te hice así... rápidamente... sin funciones ni procedimientos... pero eso se puede agregar fácilmente... Pero espero te sirva la resolución... Var mat:Array [1..15, 1..15] of byte; n:Integer; des:Integer; i,j:Integer; Begin Write('Ingrese el valor de...