3.4 ) Escreva um algoritmo para calcular a área de um circulo,fornecido o valor do raio,que deve ser positivo ou negativo.

algoritmo "circulo
var
 area, raio:real
inicio
   pi <- 3.141518
   escreva ("digite raio")
   leia(raio)
   area <- pi * (raio ^2)
   se ( area > 0) ou (area = 0) entao
    escreva ("a area eh",area:5:2)
    senao
   escreva (" o raio precisa ser > = 0")

   fimse
        fimalgoritmo