; indlæse 2 tal p og q
; undersøge om q går op i p
; hvis ja, så skriv 1, ellers skriv 0

; konstanter
	nul=0
	en=1

; variable
	p=0
	q=0
; program
	IND p
	IND q
	HENT p
	DIV q
	MULT q
	SUB p
	HNUL gikop
	UD nul
	STOP
gikop:	UD en
	STOP