Alg1- Capítulo 2- 15 Escreva um algoritmo que leia o valor do raio e calcule a área do circulo correspondente.

algoritmo "Calcula a área de um círculo"
// Função :
// Autor :
// Data : 30/8/2010
// Seção de Declarações
var
   r,a: real
inicio
// Seção de Comandos
   escreval("Entre com o raio do círculo")
   leia(r)
   a<-(r^2)*3
   escreva("O valor da área é de aproximadamente: ",a, "Considerando Pi como 3")
 
fimalgoritmo