Profº Piva - Algoritmos - Capitulo 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
n,q,i,k:inteiro
vet:vetor[1..1000] de inteiro
inicio
      repita
            escreva("digite um numero(1-1000) :")
            leia(n)
      ate((n<1000) e (n>0))
      k<-1
      para i de 1 ate n faca
           se((i mod 2)=1)entao
           q<-i*i
             vet[k]<-q
             k<-k+1
           fimse
           fimpara
para i de 1 ate (k-1) faca
     escreval(vet[i])
     fimpara
      
fimalgoritmo