function quattro_elementi_uguali_somma_altri(A,alpha,beta): logical
    var found : logical
    var i,j,somma_a,somma_b : integer
    var alpha, beta: integer
    var A: array(1..alpha,1..beta) of integer
begin
    while i<alpha && .NOT. found do
        j:=0
        somma_a:=0
        somma_b:=0
        while j<beta && .NOT. found do
            if j==1 .OR. j==3 .OR. j==4 .OR. j==beta-1 then
                somma_a:=somma_a+A[i][j]
            else
                somma_b:=somma_b+A[i][j]
            endif
            if somma_a=somma_b then
                found=.TRUE.
            endif
            j:=j+1
        endwhile
        i:=i+1
    endwhile
    quattro_elementi_uguali_somma_altri := found
end