#include <stdio.h>
#include <mpi.h>

int main (int argc, char **argv) {

    int rank, size;
    int sbuff, rbuff;
    MPI_Status status;

    MPI_Init(&argc, &argv);
    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
    MPI_Comm_size(MPI_COMM_WORLD, &size);

    if(!rank) {
        MPI_Recv(&rbuff, 1, MPI_INT, MPI_ANY_SOURCE, 1, MPI_COMM_WORLD, &status);
        MPI_Send(&sbuff, 1, MPI_INT, 2, 1, MPI_COMM_WORLD);
        MPI_Recv(&rbuff, 1, MPI_INT, MPI_ANY_SOURCE, 1, MPI_COMM_WORLD, &status);
    }
    else if (rank == 1) {
        MPI_Send(&sbuff, 1, MPI_INT, 0, 1, MPI_COMM_WORLD);
        MPI_Send(&sbuff, 1, MPI_INT, 2, 1, MPI_COMM_WORLD);
     }
    else if (rank == 2) {
       MPI_Recv(&rbuff, 1, MPI_INT, 1, 1, MPI_COMM_WORLD, &status);
       MPI_Recv(&rbuff, 1, MPI_INT, 0, 1, MPI_COMM_WORLD, &status);
    }
    else if(rank == 3) {
        MPI_Send(&sbuff, 1, MPI_INT, 0, 1, MPI_COMM_WORLD);
    }

    MPI_Finalize();
    return 0;
}

