Cacher is the code snippet organizer for pro developers

Algoritmo "com Enquanto"
var
i: real

funcao raiz(x: real): real
  retorne (x ^ 0.5)
fimfuncao

procedimento saltarNLinhas(n: inteiro)
var i: inteiro
inicio
  para i de 1 ate n faca
    escreval("")
  fimpara
fimprocedimento

funcao eMaiorQueZero(x: real): logico
  retorne (x > 0)
fimfuncao

inicio

Enquanto (Verdadeiro) Faca

  leia (i)

  Se (eMaiorQueZero(i)) entao
    escreval (raiz(i))
    saltarNLinhas(2)
  senao
    escreval ("Valor inválido! Insira um valor maior que zero")
  fimse

Fimenquanto

Fimalgoritmo