Exercicio 1 de logica de programação em (visualG).

// programa para calcular um raio de uma área
algoritmo "circulo"

var
area,raio:real
inicio
escreval(" informe o valor do raio da circuferência")
leia (raio)
area:=3.14159*raio*raio
escreval(" Valor da área é :",area)
fimalgoritmo