VisualG Como fazer um loop nesse algoritmo (visualg)

[abadom]

Inicio
escreva("digite um numero:")
leia(num)
se num > 0 entao
escreva(" digite as 3 notas :")
leia(nota1,nota2,nota3)
senao
escreval(" fim ")
fimse
media <- (nota1 + nota2 + nota3)/3
 se media >= 5 entao
 escreval(" Aprovado ")
 senao
 escreval(" Reprovado ")

 fimse

num = num - 1

 

Quero que tipo o número fica repetindo cada vez e diminua 1 ate dar 0 e encerrar o programa

[Simon Viegas]

5 horas atrás, mzimpel disse:

Quero que tipo o número fica repetindo cada vez e diminua 1 ate dar 0 e encerrar o programa

 

Não consegui entender. Posta o enunciado do problema.

 

Se for repetir "num" vezes. Poderia utilizar um laço de repetição. Ex.

algoritmo "FCdH"
var
   num   :inteiro
   nota1, nota2, nota3 :inteiro
   media :real
   cont  :inteiro
inicio
   escreva("Digite um numero:")
   leia(num)
   para cont de 1 ate num faca
      escreval("Digite as 3 notas :")
      leia(nota1, nota2, nota3)
      media <- (nota1+nota2+nota3)/3
      se media >= 5 entao
         escreval(" Aprovado ")
      senao
         escreval(" Reprovado ")
      fimse
   fimPara
fimAlgoritmo