Verified answer

algoritmo "Raiz"

var

   num: real

inicio

   escreva("Informe o número: ")

   leia(num)

   escreval("Raiz quadrada de ", num, " = ", raizq(num))

fimalgoritmo