program ejercicio5implicit none!este programa muestra el nombre de un pasajero y el precio de su boletocharacter(20):: nombreinteger::km,precio, pkm=35print*, "cual es tu nombre"read(*,*) nombreprint*, "cuantos kilometro recorreras en tu viaje"read(*,*) kmprecio=pkm*kmprint*, nombre,"el precio de tu boleto es",precioprint*, "!!!!!!!!!!!!!!!!!!!!!"print*, "GRACIAS POR TU COMPRA"PRINT*, "!!!!!!!!!!!!!!!!!!!!!"read(*,*)end program