Estou com Problema neste Algaritmo

Efetuar o cálculo da quantidade de litros de combustível gastos em uma viagem, usando-se um automóvel que faz 12 km por litro. Para obter o cálculo, o usuário deverá fornecer o tempo gasto e a velocidade média durante a viagem. Desta forma, será possivel obter a distância pecorrida com a fórmula DISTANCIA = TEMPO * VELOCIDADE. tendo o valor da distância, basta calcular a quantidade de litros de combustiveis usada na viagem com a fórmula: LITROS_GASTOS = DITANCIA / 12. O programa deverá apresentar os valores da velocidade média, tempo gasto na viagem, a disntância percorrida e quantidade de litros utilizada na viagem.

OBS:
- Dados de entrada: TEMPO e VELOCIDADE
- Processamento: calcular a distância pela fórmula do enunciado e depois calcular Litros gatos(veja formula no enunciado)
- Saída: TEMPO, VELOCIDADE, DISTÂNCIA, LITROS_USADOS.

acho que esta certo assim

algoritmo "Exe_D_lista1"
// Autor : Higino Perotti Neto
// Data : 18/8/2010
var
veloc_med: inteiro
lit_gasto, tempo, dist:real
inicio

escreval("velocidade em Km/H é:")
leia (veloc_med)
escreval("tempo da viagem")
leia (tempo)

dist<-veloc_med*tempo
lit_gasto<-dist/12

escreval ("litros gasto",lit_gasto)

fimalgoritmo

algoritmo "calc.comb.gast"
// Função :Calcular litros de combustiveis gastos em uma viagem
// Autor : Andre Malkavian
// Data : 28/9/2010
// Seção de Declarações
var
dist: real
temp: real
velmed: real
litgast: real


inicio
// Seção de Comandos
Escreva ("Digite o tempo da viagem em horas:")
leia (temp)
Escreval (temp," Horas")
Escreva ("Digite a velocidade média durante a viagem:")
leia (velmed)
Escreval (velmed," Km/h")
dist <- velmed * temp
litgast <- dist / 12
Escreval ("Você gastou", litgast, " Litros de Combustivel")




fimalgoritmo