Tiro al blanco

{
    a) Escribir un programa que permita simular un juego de tiro al blanco. Se ingresa por teclado
    la cantidad de rondas que se van a jugar. Para determinar al ganador de cada ronda, se toma
    el lanzamiento que cayó más cerca del centro. Informar cada lanzamiento y cuál es el ganador
    de cada ronda. Finalmente informar el ganador. Los lanzamientos de generan de forma aleatoria.

    b) Ahora cada ronda debe contener una cantidad de lanzamientos que también se ingresan por
    teclado. El ganador de cada ronda es el que obtuvo en promedio el lanzamiento más cercano
    al centro.
}

program tiro_al_blanco;

var
    rondas, i, lanzamientos, j, puntaje1, puntaje2: Byte;
    d1, d2, prom1, prom2: Real;

begin
    randomize();
    write('Ingrese la cantidad de rondas: ');
    readln(rondas);

    puntaje1 := 0;
    puntaje2 := 0;

{   // inciso a)
    for i := 1 to rondas do
    begin
        d1 := random();   // valor 0 - 1 (real)
        d2 := random();

        writeln('El lanzamiento del jugador 1 cayó en ', d1:0:3);
        writeln('El lanzamiento del jugador 2 cayó en ', d2:0:3);

        if (d1 < d2) then
        begin
            puntaje1 := puntaje1 + 1;
            writeln('Ganó la ronda ', i, ' jugador 1');
        end
        else if (d2 < d1) then
        begin
            puntaje2 := puntaje2 + 1;
            writeln('Ganó la ronda ', i, ' jugador 2');
        end
        else
            writeln('Empataron');
    end;
}

    // inciso b)
    write('Ingrese la cantidad de lanzamientos por ronda: ');
    readln(lanzamientos);

    for i := 1 to rondas do
    begin
        prom1 := 0;
        prom2 := 0;

        for j := 1 to lanzamientos do
        begin
            d1 := random();   // valor 0 - 1 (real)
            d2 := random();

            prom1 := prom1 + d1;
            prom2 := prom2 + d2;

            writeln('El lanzamiento ', j, ' del jugador 1 cayó en ', d1:0:3);
            writeln('El lanzamiento ', j, ' del jugador 2 cayó en ', d2:0:3);
        end;

        prom1 := prom1/lanzamientos;
        prom2 := prom2/lanzamientos;

        writeln('El promedio de los lanzamientos del jugador 1 cayó en ', prom1:0:3);
        writeln('El promedio de los lanzamientos del jugador 2 cayó en ', prom2:0:3);

        if (prom1 < prom2) then
        begin
            puntaje1 := puntaje1 + 1;
            writeln('Ganó la ronda ', i, ' jugador 1');
        end
        else if (prom2 < prom1) then
        begin
            puntaje2 := puntaje2 + 1;
            writeln('Ganó la ronda ', i, ' jugador 2');
        end
        else
            writeln('Empataron');
    end;

    writeln();

    if (puntaje1 > puntaje2) then
        writeln('Ganó jugador 1')
    else if (puntaje2 > puntaje1) then
        writeln('Ganó jugador 2')
    else
        writeln('Empate')
end.