Calcular o raio da circunferência Portugol

algoritmo "Circunferência"

// Função : Calcula o raio da circunferência
// Autor : Dionatan
// Data : 7/2/2012
// Seção de Declarações

var

p, r, a : real

inicio

// Seção de Comandos
p <- 3.14159

Escreva ("Informe o raio da circunferência: ")
   leia (r)
a <- p*r^2
Escreva ("O valor do raio é: ",a)

fimalgoritmo