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 Pzim ;
var
cont, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10,peso, maiorp, menorp:integer;
nome, nomemai, nomemen:string;
media:real;
Begin
for cont:= 1 to 10 do
begin
writeln('digite seu nome');
readln(nome);
writeln('digite seu peso');
readln(peso);
if peso>maiorp then maiorp := peso;
nomemai:=nome;
media:=(p1+p2+p3+p4+p5+p6+p7+p8+p9+p10)/10;
end;
writeln('O peso maior é:',maiorp);
writeln('O nome da pessoa de maior peso é:',nome);




End.