LOGO - Zadatak Registracija

to zapis :znamenke :regsize :n
	(local "w "c "r)
	make "w "
	make "c count :znamenke
	repeat :regsize [
		make "r remainder :n :c
		make "w word  (item (:r+1) :znamenke) :w
		make "n (:n-:r)/:c
	]
	op :w
end


to slova :n
	op zapis "ABCDEFGHIJKLMNOPRSTUVZ 2 :n
end

to brojke :n
	op zapis "0123456789 4 :n
end

to reg :zup :n
	make "n :n - 1
	make "slova slova :n
	make "c 22
	make "r remainder :n :c
	make "n int (:n-:r)/(:c*:c)
	make "brojke brojke :n
	op (word :zup "- :brojke "- :slova)
end