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

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 área de um círculo"
var
   area, raio: real
inicio
    escreval (" Entre com o raio")
    leia (raio)
    se (raio>=0) entao
        area <- 3.14*(raio^2)
        escreva(" O valor da area é :", area)
    senao
        escreva ("O raio não pode ser negativo")
    fimse
fimalgoritmo