Profº Piva - Exercícios Capitulo 3.4) Escreva um algoritmo para calcular a área de um círculo, fornecido o valor do raio, que deve ser.

 algoritmo "Cálculo" var area,raio:real inicio      
 escreva ("Digite o valor de raio: ")
  leia (raio)
  Se ((raio>0) ou (raio=0)) entao
  area <- pi*(raio^2)
  escreva ("Área igual a ",area:5:2)
  senao
  escreval ("O raio precisa ser >=0 ")
  escreval ("*** F IM ***")
  fimse
  fimalgoritmo