Exercício 16 (VisualG)

16. Num armazém existem inúmeras caixas de produtos diferentes. Cada caixa tem uma etiqueta que contém o seu nome, o número de identificação, seu peso, sua quantidade e o seu valor. Fazer um algoritmo que faça o cadastro de todos os produtos do armazém(4 produtos) e faça a listagem, quando for solicitado, destes produtos cadastrados identificando caixa mais pesada e caixa mais pesada e caixa mais cara.
-------------------------------------------------------------------------------
algoritmo "Exercício 16"

var
N1, N2, N3, N4: caracter
NumId, NumId2, NumId3, NumId4: real
Peso, Peso2, Peso3, Peso4:  real
Quant, Quant2, Quant3, Quant4: real
Valor, Valor2, Valor3, Valor4: real

inicio
      Escreval ("Informe os nomes dos produtos: ")
      Leia(N1, N2, N3, N4)
      Escreval("Informe o código de identificação: ")
      Leia(NumId, NumId2, NumId3, NumId4)
      Escreval ("Informe o peso do produto:(em kilos) ")
      Leia(Peso, Peso2, Peso3, Peso4)
      Escreval ("Informe a quantidade em estoque: ")
      Leia(Quant, Quant2, Quant3, Quant4)
      Escreval ("Informe o preço do produto:(em reais) ")
      Leia(Valor, Valor2, Valor3, Valor4)
      Escreval ("Nomes: ", N1, N2, N3, N4)
      Escreval ("Identificador: ", NumId, NumId2, NumId3, NumId4)
      Escreval ("Peso: ", Peso, Peso2, Peso3, Peso4)
      Escreval ("Quantidade em estoque: ", Quant, Quant2, Quant3, Quant4)
      Escreval ("Valor:  ", Valor, Valor2, Valor3, Valor4)