Pseudocódigo

programa despesas;
{Despesas de Sofia e Elisa}

var 
E: real; {gastos de Elisa}
S: real; {gastos de Sofia}
D: real; {despesa total}

inicio
    ESCREVA ('Digite os gastos de Sofia');
    ESCREVA ('Digite os gastos de Elisa');
    LEIA (E);
    LEIA (S);

        SE E>S
            ENTÃO D:= (1/2)*(E-S);
            ESCREVA ('Elisa deve');
            ESCREVA (D, 'para Sofia');
            else

                SE E=S
                    ESCREVA ('Nem Elisa ou Sofia devem uma a outra');
                    else

                        SE E<S
                            ENTÃO D:= (1/2)*(S-E);
                            ESCREVA ('Sofia deve');
                            ESCREVA (D,'para Elisa');
                        FIM SE

                FIM SE

        FIM SE

FIM.