Código Delphi [-] function par(n: integer): boolean; asm and ax,1 dec ax end;
function par(n: integer): boolean; asm and ax,1 dec ax end;