for i to 10 do
    write( i );
    if i % 5 = 0
    then write( "\n" )
    else write( ", " )
    fi
od