Algoritmo de Matriz - VisualG

algoritmo "Rewrite 1"
//Algoritmo para ler uma matriz de 3×4 de números reais e depois exibir o elemento do canto superior esquerdo e do canto inferior

var
mat:vetor [1..3,1..4] de real
lin:inteiro
col:inteiro
inicio
para lin de 1 ate 3 faca
para col de 1 ate 4 faca
 leia (mat[lin,col])
  fimpara
  fimpara

  para lin de 1 ate 3 faca
  para col de 1 ate 4 faca
  escreva (mat[lin,col]:3)
  fimpara
  escreval ("")
  fimpara
  escreval ("")
escreval (mat [1,1],mat [3,4])
fimalgoritmo