{5. Dado un archivo de enteros, leerlos en un arreglo,
obtener el promedio de todos los números divisores del máximo y con ellos armar otro arreglo.
Mostrar ambos arreglos.}

Program LectorDeEnteros;

    type
        Arreglo = array [1..30] of integer;
    var
        Arch:text;
        Prom:byte;
        i:integer;
        ArregloA:Arreglo;

    Procedure CargadorVectorialdeArchivo (var ArregloA:Arreglo);
        var
            Arch:text;
            i:integer;

    Begin
        assign (Arch,'Numeros.txt');
        reset (Arch);

        i := 1;
        while not eof(Arch) do
        begin
            Read(Arch,ArregloA[i]);
            i := i + 1;
        end;
    End;

    Begin

        CargadorVectorialdeArchivo(ArregloA);


        for i := 1 to 14 do
            WriteLn(ArregloA[i]);

    End.