Algoritmo

{algoritmo para dividir as despesas de elisa e sofia}
inicio
    real: E, S, D;
    leia(E);
    leia(S);
    leia(D);
    se (E>S)
        entao
            calcule(D=1/2*(E-S))
            escreva(Sofia deve Elisa)
        senao
            inicio
                calcule(D1/2*(S-E))
                escreva(Elisa deve Sofia)
            fim
    fimse
fim