Exercicio 4 capitulo 3

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

algoritmo "exercicio 3.4 - Area do circulo"
var
   raio,area:real
inicio
   escreval("Informe o raio:")
   leia(raio)
   
   se (raio>=0) entao
      area<- 3.141518*(raio^2)
      escreva("A área é: ",area:5:2)
   senao
      escreva("O raio deve ser maior ou igual a zero")
   fimse
fimalgoritmo