Pages := Number of pages
Sides := Number of sides on die
Count := N/S (rounded down)
Set all pages to false
for(i = 1 to Sides)
{
while(j := 0, j < Count, j++)
{
Random := Random number between 1 and Pages
if(Page{Random} = false)
{
Place i on Page{Random}
Set Page{Random} = true
}
else
{
j--
}
}