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

Algoritmo "calcular a area de um circulo"
Var
    raio,area: real
Inicio
    Escreval("O valor do raio deve ser Positivo ou zero.")  
    Escreva("Informe o raio: ")
    Leia(raio)
    Se (raio >= 0) entao
         area <- pi * (raio^2)
         Escreva("A area do circulo e ",area)
    Senao
         Escreval("O valor do raio deve ser Positivo ou zero.")
    Fimse
Fimalgoritmo