Cap 3 -Exercício 3-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 área de um círculo"

var

area, raio: real

piRecebe: numerico

inicio

piRecebe <- 3.141518

escreva ("Digite o raio: ")

leia (raio)

se ((raio>0) ou (raio=0)) entao

    area <- pi*(raio^2)

    escreva ("A área do círculo eh:  " ,area:5:2)

senao

    escreva ("O raio precisa ser >= 0")

fimse