Algoritmo sin_titulo
 Dimension matriz[3,3]
 Para f<-1 Hasta 3 Con Paso 1 Hacer
  Para c<-1 Hasta 3 Con Paso 1 Hacer
   Leer n
   matriz[f,c]<-n
  FinPara
 FinPara
 Para f<-1 hasta 3 Con Paso 1 Hacer
  Para c<-1 hasta 3 Con Paso 1 Hacer
   Escribir matriz[f,c]
  FinPara
 FinPara
 Escribir "Los numeros en diagonal son: " matriz[1,1] ":", matriz[1,3] ":", matriz[2,2] ":", matriz[3,1] ":", matriz[3,3]
FinAlgoritmo