Algoritmo para despesas de Elisa e Sofia

Inicio
real:S,E,D;
Escreva(S);
Escreva(E);
Se E>S;
entao;
inicio;
calcule D=1/2(E-S);
escreva ("Sofia deve Elisa D");
fim
se nao;
inicio
entao calcule D=1/2(S-E);
escrava ("Elisa deve Sofia D");
fim
finse
fim