Código Delphi [-] if (Base > 0) and (Altura > 0) then // Hay que encerrar cada condición entre paréntesis
if (Base > 0) and (Altura > 0) then // Hay que encerrar cada condición entre paréntesis