Exercicio 15 capitulo 2

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

algoritmo "Exercicio 2-15"
var
   raio,area:real
inicio
   escreval("Informe o raio da circunferencia:")
   leia(raio)
   
   area<- 3.14*raio^2
   escreva("A área é:",area)
fimalgoritmo