4_9

algoritmo "4_9"
      n, i, f:inteiro;

      faca
            escreva("Informe um número inteiro: ");
            leia(n);
            se (n != 0) entao
               f <- 0;
               para (i <- 1; i <= n; i <- i + 1) faca
                    se ( (i*i) == n) entao
                       escreval("És um quadrado perfeito. ");
                       f <- 1;
                    fimse
               fimpara
               se (f != 1) entao
                  escreval("Não és um quadrado perfeito. ");
               fimse
            fimse
      enquanto (n != 0)
fimalgoritmo