Pessoa mais pesada com rotinas

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "Pessoa mais pesada com rotinas"
// Função :
// Autor :
// Data : 30/06/2015
// Seção de Declarações 
var
 I: inteiro
 N, pesado: caractere
 P, mai: real
inicio
// Seção de Comandos 
 Procedimento topo()
 Inicio
 limpatela
 escreval("-----------------")
 escreval("DETECTOR DE PESADO")
 escreval("Maior peso até agora: ", mai, "Kg")
 escreval("-----------------")
 FimProcedimento
 
 topo()
 
 para I<- 1 ate 5 faca
 escreva("Diite o nome: ")
 leia (N)
 escreva("Digite o peso de ",N,": ")
 leia (P)
 se(P>mai) entao
 mai<-P
 pesado<-N
 fimse
 topo()
 fimpara
 
 topo()
 escreval("A pessoa mais pesada foi: ", pesado,", com ",mai, " quilos.")
 
 
 
 
fimalgoritmo