_liczbaPi PROC
	push ebp
	mov ebp, esp
	finit

	mov ecx, offset a
	mov eax, dword ptr [ebp+8] ;n

	cmp eax, 1
		je koniec

	petla:
		fld dword ptr a
		fld dword ptr b
		fdivp st(1), st(0) ; st(0) = a/b

		fld dword ptr wynik
		fmulp st(1), st(0) ; st(0) = wynik * a/b
		fstp dword ptr wynik ; st(0) -> wynik

		cmp dword ptr f, 0
			jne jeden
			zero:
				inc dword ptr f
				fld dword ptr a
				fld1
				fld1
				faddp st(1), st(0) ; st(0) = 2.0
				faddp st(1), st(0) ; st(0) = a + 2
				fstp dword ptr a
				jmp dalej
			jeden:
				dec dword ptr f
				fld dword ptr b
				fld1
				fld1
				faddp st(1), st(0) ; st(0) = 2.0
				faddp st(1), st(0) ; st(0) = b + 2
				fstp dword ptr b
			dalej:

		dec eax
		cmp eax, 1
			jne petla
		koniec:
			fld wynik
			pop ebp
			ret
_liczbaPi ENDP