Capt 2 Exercicio 15

Escreva um algoritmo que leia o valor do raio e calcule a área do circulo correspondente.

algoritmo "Calculo da área do círculo"
var
r, area:real

inicio
escreva("Informe o Raio do Círculo (r): ")
leia(r)
area <- 3.14 * r^2
escreva("Área do círculo: ", area)