6)Escreva algoritmo que leia os nomes e conceitos dos alunos de uma turma de tamanho máximo 60. O algoritmo deverá, para todos os alunos lidos, colocar em uma matriz o nome do aluno na primeira coluna e sua situação na segunda coluna: "aprovado", se o conceito do aluno for superior a 0; "reprovado" caso contrário. Os conceitos vão de 0 a 4, estando reprovados os alunos cujo conceito é o 0. O algoritmo pára de ler quando o nome informado for "fim" ou tenham sido lidos o nome e o conceito de 60 alunos (tamanho máximo da turma)

algoritmo "Lista"

var
  nome: vetor [1..60] de literal
  conceito: vetor [1..60] de real
  mat: vetor [1..60,1..3] de literal
  i: inteiro
Inicio

  i <- 1
  Repita
    Escreva("Informe o Nome ",i, " : ")
    Leia(nome[i])
    Se(nome<>"fim")entao
      mat[i,1] <- nome[i]
      Escreva("Conceito (0-4): ")
      Leia(conceito[i])
      Enquanto (conceito[i] < 0) ou (conceito[i] > 4) FACA
        Escreval("O conceito deve estar entre 0 e 4.")
        Escreva("Conceito (0-4): ")
          Leia(conceito[i])
      Fimenquanto
      mat[i,2] <- conceito[i]
    Se(conceito[i]>0)entao
      mat[i,3] <- "Aprovado"
    Senao
      mat[i,3] <- "Reprovado"
    Fimse
    Fimse
    i <- i + 1
    Ate(nome[i]= "fim") ou (i > 60)

Fimalgoritmo