var
// Variáveis
h: real
d: real
r: real
a: real
v: real
t: real
enchimento: real
inicio
// Processamento de entrada

escreva("Forneça o valor da altura da piscina: ")
leia(h)
escreva("Forneça o valor diâmetro da piscina: ")
leia(d)

// Calculo

r <- d / 2
a <- 3.1416 * r ^ 2
v <- a * (h - 0.1)
enchimento <- 2.7
t <- v / enchimento

// Processamento de saída

escreval("Metros de lona a ser comprada: ", a)
escreva("Tempo para encher a piscina: ", t)

fimalgoritmo