5-1)Escreva um algoritmo que calcule e coloque em um vetor os números de 1 a n cuja raiz quadrada é um número inteiro ímpar. Por exemplo, 1, 9, 25, 49,…O valor de n deve ser lido, sendo que n ≤1000.

algoritmo “Raiz quadrada”
var
  x: vetor [1..1000] de inteiro
  n,i:inteiro
  total:real
inicio
    escreva(“Digite um número: “)
    leia(n)
    i<-1
    se (n<=1000) entao
      para i de 1 ate n faca
        se (i mod 2<>0)entao
          total<-raizq(i)
          se (total*total=i)entao
            escreval(“A raíz quadrada de”,i,” é”,total)
          fimse
        fimse
      fimpara
    senao
      escreva(“Número inválido.”)
    fimse
fimalgoritmo