Algoritmo para as despesas de Elisa e Sofia

Início
real: S,E,D;
Escreva(S);
Escreva(E);
Se E>S;
Então;
Início
Calcule D=1/2(E-S);
Escreva("Sofia deve a Elisa D");
Fim
Senão;
Início;
Calcule D=1/2(S-E);
Escreva("Elisa deve a sofia D");
Fim
Fimse
Fim.