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