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

## RANDOM DATA 
a <- 10:30 %>% sample(1)
b <- 15:35 %>% sample(1)

## SOLUTION
Area <- a * b
Peri <- 2 * (a + b)
Figu <- ifelse(a == b, "quadrado", "retangulo")
```

Question
========
Considere uma figura geométrica com ângulos retos cujas dimensões são:

Lado 1 = `r a` cm.

Lado 2 = `r b` cm.

Responda:

Questionlist
------------
* Qual a área da figura (em cm^2^).
* Qual o perímetro da figura (em cm)?
* A figura é um retângulo
* A figura é um quadrado

Solution
========
Solutionlist
------------
* A área da figura é `r Area` cm^2^.
* O perímetro da figura é `r Peri` cm.
* A figura é um `r Figu`. 
* 

Meta-information
================
exname: retangulo
extype: cloze
exsolution: `r Area`|`r Peri`|`r ifelse(a == b, "01", "10")`
exclozetype: num|num|schoice
extol: 1