1) Faça um algoritmo e a seguir passe-o para pascal, que leia o nome e o peso de 10 pessoas
e a seguir calcule o maior peso,o mais leve, e a média de peso. Escreva o nome da pessoa com maior peso.

Program algoritmo ;
var
cont, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10,peso, maiorp, menorp:texto;
nome, nomemai, nomemen:texo;
media:real;
inicio
para cont:= 1 to 10 do
inicio
escreva('digite seu nome');
leia(nome);
escreva('digite seu peso');
leia(peso);
se peso>maiorp entao maiorp := peso;
nomemai:=nome;
media:=(p1+p2+p3+p4+p5+p6+p7+p8+p9+p10)/10;
fim;
escreva('O peso maior é:',maiorp);
escreva('O nome da pessoa de maior peso é:',nome);
fim.