esercizio3

 function quattro_elementi_somma_altri (A,alpha,beta): logical
    var alpha,beta: integer
    var A:array(1..alpha)(1..beta)
    var i,j: integer
    var ris: logical
    var somma_a,somma_b := integer
    begin
    i:=2
    repeat
        somma_a:=0;
        somma_b:=0;
        for j=1,beta 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_a + A[i][j];
            endif
        endfor
        if somma_a=somma_b then
            ris:=true;
        endif
        i:=i+2
    until NOT ris AND i<alpha
        quattro_elementi_somma_altri := ris
    end