Henrique

//Leia 3 (três) números;Calcule o quadrado deles individualmente;
//Se o valor do quadrado do segundo número for >= 1000, exiba este
//e finalize. Caso contrário, exiba os valores lidos e seus//respectivos quadrados.

RESOLUÇÃO NO VISUALG:

var
n1,n2,n3,cal11, cal12, cal13: real

inicio
 escreval("Digite o primeiro numero")
    leia(n1)
    escreval("Digite o segundo numero")
    leia(n2)
    escreval("Digite o terceiro numero")
    leia(n3)
    cal11 <- n1 * n1
    cal12 <- n2 * n2
    cal13 <- n3 * n3
    se (cal12 >= 1000) entao
       escreval("o quadrado é:", cal12)
    senao
       escreval("Primeiro valor lido:",n1)
       escreval("Seu quadrado é:", cal11)
       escreval("---------------------------")
       escreval("Segundo valor lido:", n2)
       escreval("Seu quadrado é:", cal12)
       escreval("---------------------------")
       escreval("Terceiro valor lido:", n3)
       escreval("Seu quadrado é:", cal13)
    fimse
// Seção de Comandos 

fimalgoritmo