Combustível gastos em uma viagem - portugol

algoritmo "semnome"
//Efetuar o cálculo da quantidade de litros de combustível gastos em uma viagem,
//utilizando-se um automóvel que faz 12 Km por litro. Para obter o cálculo,
//o usuário deverá fornecer o tempo gasto na viagem e a velocidade média
//durante a mesma. Desta forma, será possível obter a distância percorrida com
//a fórmula DISTÂNCIA <- TEMPO (em horas) * VELOCIDADE. Tendo o valor da
//distância, basta calcular a quantidade de litros de combustível utilizada na
//viagem com a fórmula: LITROS_US <- DISTÂNCIA / 12.
//O programa deverá apresentar os valores da velocidade média, tempo gasto na
//viagem, a distância percorrida e a quantidade de litros utilizada na viagem.

var
tempo : inteiro
distancia, litros_us, velocidade : real

inicio
escreval ("Digite o tempo gasto na viagem")
leia (tempo)
escreval ("Digite a velocidade média ")
leia (velocidade)
distancia <- tempo * velocidade
litros_us <- distancia / 12
escreval ("Velocidade média = ", velocidade)
escreval ("Tempo gasto na viagem = ", tempo)
escreval("Distancia percorrida ", distancia)
escreval ("Qtde de litros usados = ", litros_us)
fimalgoritmo