Exercício 2-15

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

algoritmo "Calcular área do círculo"

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

fimalgoritmo