Algoritmo visualg com condição

Nessa postagem estarei ensinando como criar um algoritmo em portugol com estrutura de repetição simples.

Algoritmo que calcula a velocidade média e escreve se é maior ou menor que 80.

algoritmo "semnome"
// Função :
// Autor : douglasboza.blogspot.com
// Data : 09/03/2013
// Seção de Declarações
var
distan:real
tempo:real
aux:real

inicio
escreva ("Digite a distancia : ")
leia (distan)

escreva ("Tempo : ")
leia (tempo)
aux := (distan/tempo)

se (aux>=80) entao
escreva ("Velocidade alta")
senao
escreva ("Velocidade baixa")
fimse
escreval (aux)
fimalgoritmo

Vídeo Tutorial