procedure Quantita_Tablet(in:N,M,Tablet_Negozio,Tablet_Magazzino;     out:Tablet_Totale)
    var M,N,i_totale: integer
    var Tablet_Negozio:   array(1..M,1..2) of integer
    var Tablet_Magazzino: array(1..N,1..2) of integer
    var Tablet_Totale:    array(1..M+N,1..2) of integer
begin
    while(i<M && j<N) do
        if(Tablet_Negozio[i][1]==Tablet_Magazzino[j][1]) then
            Tablet_Totale[i_totale][0]:=Tablet_Magazzino[j][0]+Tablet_Negozio[i][0]
            Tablet_Totale[i_totale][1]:=Tablet_Magazzino[j][1]
            i:=i+1
            j:=j+1
        else if(Tablet_Magazzino[j][1]<Tablet_Negozio[i][1]) then
            Tablet_Totale[i_totale][0]:=Tablet_Magazzino[j][0]
            Tablet_Totale[i_totale][1]:=Tablet_Magazzino[j][1]
            j:=j+1
        else
            Tablet_Totale[i_totale][0]:=Tablet_Negozio[j][0]
            Tablet_Totale[i_totale][1]:=Tablet_Negozio[j][1]
            i:=i+1
        endif
        i_totale:=i_totale+1
    end while

    while(i<M) do
        Tablet_Totale[i_totale][0]:=Tablet_Negozio[j][0]
        Tablet_Totale[i_totale][1]:=Tablet_Negozio[j][1]
        i:=i+1
    end while

    while(j<N) do
        Tablet_Totale[i_totale][0]:=Tablet_Magazzino[j][0]
        Tablet_Totale[i_totale][1]:=Tablet_Magazzino[j][1]
        j:=j+1
    end while
end

program esercizio_3
    var M,N: integer
    var Tablet_Negozio:   array(1..M,1..2) of integer
    var Tablet_Magazzino: array(1..N,1..2) of integer
    var Tablet_Totale:    array(1..M+N,1..2) of integer
begin
    read M,N
    for i:=0,M do
        read Tablet_Negozio[i][0]
        read Tablet_Negozio[i][1]
    endfor
    for i:=0,N do
        read Tablet_Negozio[i][0]
        read Tablet_Negozio[i][1]
    endfor

    Quantita_Tablet(N,M,Tablet_Negozio,Tablet_Magazzino,Tablet_Totale)

    for i:=0,N+M do
        read Tablet_Totale[i][0]
        read Tablet_Totale[i][1]
    endfor
end