algoritmo "nome"

var

  mat:vetor[1..5,1..5] de inteiro // Declarar a matriz

  i, j:inteiro // Declarar os inteiros auxiliares

inicio

  para i:=1 ate 5 faca

     para j:=1 ate 5 faca

        se (i=j) entao // condição para pegar a diagonal principal

           mat[i,j]:=1

        senao

           mat[i,j]:=0

        fimse

     fimpara

  fimpara

  para i:=1 ate 5 faca // mostrar matriz

     para j:=1 ate 5 faca

        escreva(mat[i,j])

     fimpara

     escreval() // Quebrar linha apos mostrar todas as colunas

  fimpara

fimalgoritmo