Faça um Algoritmo para calcular a área de um circulo, fornecido o valor do raio, que deve ser positivo.

Algoritmo_CalculaAreadoCirculo
VAR.Area, Raio: Real inicio
Escreva ("Entre com raio do círculo")
Leia  Raio
Se Raio > 0
Area <-  PI * (Raio^2)
Escreva ("A área do círculo de raio ", Raio, " é ", Area)
fim_se
Se Raio <= 0 entao
Escreva ("Raio não pode ser nulo ou negativo!")
 fim_se
fim_algoritmo