Algoritmo detarea
	Definir f,c,matriz,vector1,vector2 Como Entero
	Dimension matriz[7,7],vector1[7],vector2[7]
	para f = 1 Hasta 7 Con Paso 1 Hacer
		para c = 1 Hasta 7 Con Paso 1 Hacer
			matriz(f,c) = azar(9) + 1
		FinPara
	FinPara
	
	para f = 1 Hasta 7 Con Paso 1 Hacer
		para c = 1 Hasta 7 Con Paso 1 Hacer
			Escribir matriz(f,c)," " Sin Saltar
			vector1(f) = vector1(f) + matriz(f,c)
			vector2(c) = vector2(c) + matriz(f,c)
		FinPara
		Escribir " "
	FinPara
	
	para c = 1 Hasta 7 Con Paso 1 Hacer
		Escribir "Suma fila ",c," = ",vector1(c)," suma columna ",c," = ",vector2(c)
	FinPara
FinAlgoritmo