9 lines
145 B
Text
9 lines
145 B
Text
procedure main()
|
|
every writes(" ",tau(seq()))\100
|
|
write()
|
|
end
|
|
|
|
procedure tau(n)
|
|
every (c := 0, n%(1 to n) = 0, c +:= 1)
|
|
return c
|
|
end
|