Pseudocódigo

var E,S,D : real; { despesas}


início
escreva(‘Forneça as despesas de Elisa’);
escreva(‘Forneça as despesas de Sofia’);
se E>S
D:=½(E-S);
leia(‘Sofia deve a Elisa D’)
senão
D:=1/2(S-E);
leia(‘Elisa deve a Sofia D’)
fim se;
fim.