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

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

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

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

    Quantita_Ipod(N,M,Ipod_Negozio,Ipod_Magazzino,Ipod_Totale)

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