5) Construa um algoritmo para gerar 1000 números aleatórios, calcular o somatório, a média de peso, o maior
e o menor número gerado.

program Pzim ; ALEATORIO 10000
var
soma,cont,n,maior,menor:integer;
media:real;
Begin
soma:=0; maior:=0; menor:=10006;
writeln('Este programa gera 1.000 números aleatório entre 0 e 10.000');
writeln;
for cont:=1 to 1000 do
Begin
randomize;
n:=random (10000); 
soma:=n+soma;
If (n>maior) then maior:=n;
If (n<menor)then menor:=n
media:=(soma/1000);
writeln('A soma dos números gerados foi: ',soma);
writeln('A média dos números gerados foi: ',media:2:2);
writeln('O maior número gerado foi: ',maior);
writeln('O menor número gerado foi: ',menor);
End.