Código Delphi [-]program taberna
program taberna
Código Delphi [-]end.
end.
Código Delphi [-] Repeat banco + trago; until bebedores < 1;
Repeat banco + trago; until bebedores < 1;