program project20;
 
uses
  SysUtils;
 
var
  qtdNumeros: Integer;
  i: Integer;
  maiorNumero: Integer;
  menorNumero: Integer;
  valorInformado: Integer;
  vSoma : Integer;
  vMedia : Double;
begin
 
  Write(Utf8ToAnsi('Informe a quantidade de números: '));
  ReadLn(qtdNumeros);
 
  { Testando se a quantidade informada é válida. }
  if qtdNumeros < 1 then
  begin
    Write(Utf8ToAnsi('A quantidade de números precisa ser maior de zero, '+
      'mas foi informado: '), qtdNumeros);
 
    { Para a execução }
    Readln;
    Exit;
  end;
 
  { Inicializa a soma com zero }
  vSoma:= 0;
 
  { Faz a leitura de 1 número, que por padrão será maior e menor }
  Write(Utf8ToAnsi('Informe o 1º Número: '));
  Readln(valorInformado);
 
  maiorNumero:= valorInformado;
  menorNumero:= valorInformado;
  vSoma:= vSoma + valorInformado;
 
  { Começa o laço do dois, porque já lemos um fora do laço }
  for i := 2 to qtdNumeros do
  begin
    Write(Utf8ToAnsi('Informe o ' + i.ToString + 'º Número: '));
    Readln(valorInformado);
 
    { Verifica se o número lido é o maior }
    if valorInformado > maiorNumero then
    begin
      maiorNumero:= valorInformado;
    end;
 
    { Verifica se o número lido é o menor }
    if valorInformado < menorNumero then
    begin
      menorNumero:= valorInformado;
    end;
 
    { Acumula a soma dos números lidos }
    vSoma:= vSoma + valorInformado;
  end;
 
  { Calculando a média, SEMPRE depois do laço. }
  vMedia:= vSoma / qtdNumeros;
 
  { Exibindo o relatorio }
  WriteLn(Utf8ToAnsi('Quantidade de números lidos: '), qtdNumeros);
  WriteLn(Utf8ToAnsi('Maior número lido: '), maiorNumero);
  WriteLn(Utf8ToAnsi('Menor número lido: '), menorNumero);
  WriteLn(Utf8ToAnsi('Média dos números lidos: '), FormatFloat('#0.00', vMedia));
 
  ReadLn;
end.