Exercício 2-10

Escreva um algoritmo que leia o nome de um piloto, uma distância percorrida em quilômetros e o
tempo que o piloto levou para percorrê-la (em minutos). O algoritmo deve calcular a velocidade em
km/h, e exibir a seguinte frase:
A velocidade média do <nome do piloto> foi<velocidade média calculada> km/h

algoritmo "Calcular a velocidade em km/h"
var
nome:literal
media,distancia:real
tempo:inteiro

inicio
escreval("Calculando a velocidade média em Km/h")
escreval
escreva("Entre com o nome do piloto:")
escreval
leia(nome)
escreva("Entre com a distância percorrida em km:")
leia(distancia)
escreva("Entre com o tempo gasto em minutos:")
leia(tempo)
media <- distancia /(tempo/60)
escreva("A velocide media do piloto ",nome," foi de",media," km/h")
fimalgoritmo