4)Escreva um algoritmo para calcular a área de um círculo, fornecido o valor do raio, que deve ser positivo ou zero.

algoritmo “Calcula a área”
var
raio, area:numerico
inicio
  escreva (“Digite o valor do raio:”)
  leia (raio)
  se (raio>=0) entao
    area<-3.1418*(raio)^2
    escreva (“A área é de”,area)
  senao
    escreva (“Raio Inválido”)
  fimse
fimalgoritmo