Diox83

function Factorial(N: LongWord):LongWord; assembler;
asm
	CMP	 EAX, 1
	JLE	 @END
	MOV	 ECX, EAX
	DEC	 ECX
@CONTINUE:
	MUL	 ECX   
	LOOP	 @CONTINUE
	RET	
@END:
	XOR	 EAX, EAX 
	INC	 EAX
end;