//C6
//Wypisz dzielniki
                     SDP Read
                     ŁAD number
loop:                POB number
                     ODE divisor
                     SOZ end
                     POB divisor
                     DNS
                     POB number
                     DNS
                     SDP Remainder
                     PZS
                     SOZ foundDivisor
                     POB divisor
                     DOD one
                     ŁAD divisor
                     SOB loop
foundDivisor:        POB divisor
                     SDP Write
                     POB space
                     WYP 2
                     POB divisor
                     DOD one
                     ŁAD divisor
                     SOB loop                     
end:                 POB divisor
                     SDP Write
                     STP
divisor:             RST 1
number:              RST 7
one:                 RST 1
space:               RST 32
 
 // reszta z dzielenia (zwraca 0 gdy liczba b jest dzielnikiem a)
Remainder:            PZS
                      ŁAD mark
                      PZS
                      ŁAD a
                      PZS
                      ŁAD b
                      POB a
remainderLoop:        SOM remainderEnd   
                      ODE b
                      SOB remainderLoop
remainderEnd:         DOD b
                      DNS
                      POB mark
                      DNS
                      PWR                           
a:                    RPA
b:                    RPA
mark:                 RPA

//Czytaj liczby z wejścia
Read:   	POB Zero
 Wróć:   	ŁAD Liczba
         	WPR 1
         	ODE Znak0
         	SOM Gotowe
         	ODE St10
         	SOM Dalej
 Gotowe: 	POB Liczba
         	PWR
 Dalej:  	DOD St10
         	ŁAD Cyfra
         	POB Liczba
         	MNO St10
         	DOD Cyfra
         	SOB Wróć
 Cyfra:  	RPA
 Liczba: 	RPA
 St10:   	RST 10
 Zero:   	RST 0
 Znak0:  	RST 48         	

//Wypisz liczby na wyjście         	
 Write:  	ŁAD liczba
         	POB Zero
         	DNS
         	POB liczba
         	SOM Abs
 Posit:  	DZI St10
         	MNO St10
         	ŁAD tmp
         	POB liczba
         	ODE tmp
         	DOD Znak0
         	DNS
         	POB tmp
         	DZI St10
         	SOZ Kończ
         	ŁAD liczba
         	SOB Posit
 Abs:    	POB Minus
         	WYP 2
         	POB Zero
         	ODE liczba
         	ŁAD liczba
         	SOB Posit
 Kończ:  	PZS
         	SOZ Wracaj
         	WYP 2
         	SOB Kończ
 Wracaj: 	PWR
 tmp:    	RPA
 Minus:  	RST 45