```{r dgp, include = FALSE}
library(exams)
library(magrittr)
library(knitr)
options(scipen = 999) #prevent scientific notation 

## IATA 10+ movimentados do Brasil
iata10 <- c("GRU","CGH","BSB","GIG","CNF",
            "VCP","SDU","REC","POA","SSA") 
arpt10 <- c("Guarulhos","Congonhas","Brasília","Galeão","Confins",
            "Viracopos","Santos Dumont","Recife","Porto Alegre","Salvador")  
 
## RANDOM DATA 
i <- 1:10 %>% sample(1)

## SOLUTION
iata <- iata10[i]
arpt <- arpt10[i]
```

Question
========
Qual o código IATA para o Aeroporto de `r arpt`?  

Solution
========
O código IATA para o Aeroporto de `r arpt` é `r iata`.

Meta-information
================
exname: codigo
extype: string
exsolution: `r iata`