function sommaRIGA_uguale_elemento(A,h,k): logical
    var h,k,somma_riga_successiva,somma_attuale : integer
    var A : array(1..h)(1..k) of integer
    var i_h,i_k: integer
 begin
    while i_h<h .AND. .NOT. sommaRIGA_uguale_elemento do
        somma_attuale:=0;
        for j=0,k do
            somma_attuale := somma_attuale+(A(i_h)(j)*-1)
        endfor
        j:=0
        while j<k  .AND. .NOT. sommaRIGA_uguale_elemento do
        	if A(i_h)(j) = somma_attuale then
        		sommaRIGA_uguale_elemento := true
        	endif
			j:=j+1;
		endwhile
        i_h := i_h+1
    endwhile
 end

 CHIAMANTE:
 procedure esercizio4()
 var h,k : integer
 var A : array(1..h)(1..k) of integer
 var risultato : logical
 begin
    read h,k
    for i,h do
    	for j,k do
    		read A(i)(j)
		endfor
	endfor
 	risultato := sommaRIGA_uguale_elemento(A,h,k)
 	print risultato
 end