(L2) 15º Escreva um algoritmo que leia o valor do raio e calcule a área do circulo correspondente.

algoritmo "Calcula a área de um círculo"


var
 r, a: real

inicio

 escreval("Entre com o raio do círculo")
 leia(r)
 a<-(r^2)*3
 escreva("O valor da área é de aproximadamente: ",a, "Considerando Pi como 3")

Fimalgoritmo