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

  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(" FIM ")
     fimse
 fimalgoritmo