area circuferencia

algoritmo "Area Circ"

var
area, raio, comprimento: real
inicio
escreval("Informe o raio da circuferencia:")
leia (raio)
area <-  pi * (raio^2)
comprimento <- 2 * pi * raio
escreval("Area da circuferencia:",area)
escreval ("Comprimento da circuferencia:", comprimento)
fimalgoritmo