2) 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 media de peso.Escreva o nome da pessoa com maior peso,
e o número de pessoas que estão acima e abaixo da média de peso.

Program algoritmo ;
var
cont,peso,maiorp, menorp, p1,p2, p3, p4, p5, p6, p7, p8, p9, p10:inteiro;
nome, nomemai, nomemen: texto;
media, ac,ab:real;
inicio
para cont:= 1 to 3 do
inicio
escreva('Digite o seu nome');
escreva(nome);
escreva('Digite seu peso');
leia(peso);
se peso>maiorp entao maiorp:= peso;
nomemai:=nome;
se peso media enato ac:= peso;
se peso fim;
escreva(' o nome da pessoa de maior peso é:',nome);
escreva('o nome da pesooa de menor peso é:',nome);
escreva('estao acima do peso:',ac);
escreva('estao abaixo do peso:',ab);
fim.