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 Pzim ;
var
cont,peso,maiorp, menorp, p1,p2, p3, p4, p5, p6, p7, p8, p9, p10:integer;
nome, nomemai, nomemen: string;
media, ac,ab:real;
Begin
for cont:= 1 to 3 do
begin
writeln('Digite o seu nome');
readln(nome);
writeln('Digite seu peso');
readln(peso);
if peso>maiorp then maiorp:= peso;
nomemai:=nome;
if peso media then ac:= peso;
if peso end;
writeln(' o nome da pessoa de maior peso é:',nome);
writeln('o nome da pesooa de menor peso é:',nome);
writeln('estao acima do peso:',ac);
writeln('estao abaixo do peso:',ab);
End.