L3 - 4-Escreva um algoritmo para calcular a área de um círculo, fornecido o valor do raio, que deve ser positivo ou zero.

algoritmo "Área do Círculo"
// Função :
// Autor :
// Data : 20/9/2010
// Seção de Declarações
var
   r,a:real
inicio
// Seção de Comandos
   escreva("Entre com o raio do círculo ")
   leia(r)
  
   se(r>=0) entao
     a<-3*(r^2)
     escreva("A área do círculo é: ",a)
    
   senao
    escreva("O raio dado é inválido")
   fimse
fimalgoritmo