complete those calculations calculations using R studio

During last year's holiday my brother turned 40! As part of the birthday celebrations, we played my brother's favorite card game: magic. Some of the outcomes in this game are determined by dice rolls. For example, if you rolled the dice and received an even number that would be considered a success and an odd would be a failure. My brother had some birthday luck and I want to figure out just how lucky he was.

Situation: Mark could roll 2(two) dice at a time and if either of these show an even number he would be consider to have been successful.

1. At one point he rolled 21 successes in a row. How likely was he to have this many successes in a row? Roughly how many times would this happen if we tried to replicate this feat 2000 times?
2. By memory (clearly faulty but this is the beauty of stories) my brother won about 68 out of 79 on similar 2 dice rolls. If we played again how likely would he be to preform as well as that or better? Is my brother lucky or am I a poor loser?

R Functions of use: dbinom(), pbinom(), qbinom(), rbinom()