Well, here's what could happen. These are 300 numbers, from 1 to 99:
92, 19, 31, 84, 71, 71, 32, 12, 60, 30, 30, 68, 82, 90, 6, 35, 39, 4, 90, 35, 18, 47, 59, 37, 83, 29, 48, 19, 62, 58, 55, 56, 63, 83, 21, 33, 85, 84, 19, 83, 10, 56, 3, 17, 70, 43, 76, 79, 64, 91, 3, 63, 35, 42, 52, 59, 36, 72, 55, 20, 71, 58, 28, 69, 60, 31, 69, 83, 80, 31, 50, 36, 71, 91, 47, 63, 24, 4, 96, 8, 74, 45, 53, 38, 75, 80, 1, 64, 28, 52, 38, 81, 79, 30, 33, 20, 32, 84, 27, 81, 16, 7, 32, 96, 18, 86, 51, 27, 73, 13, 3, 88, 54, 77, 50, 90, 26, 84, 57, 2, 45, 85, 16, 83, 19, 17, 25, 74, 51, 99, 9, 91, 56, 13, 14, 86, 99, 72, 14, 94, 1, 67, 21, 37, 16, 37, 65, 70, 74, 84, 13, 15, 50, 68, 21, 74, 70, 20, 51, 47, 18, 64, 95, 99, 64, 58, 79, 24, 41, 64, 50, 28, 39, 24, 65, 13, 97, 4, 37, 49, 13, 21, 97, 46, 81, 85, 98, 72, 70, 98, 43, 94, 59, 99, 31, 12, 8, 61, 54, 23, 43, 62, 88, 54, 74, 95, 39, 23, 65, 87, 65, 17, 31, 38, 82, 29, 54, 99, 11, 68, 4, 70, 26, 20, 29, 60, 21, 52, 53, 47, 4, 89, 87, 45, 71, 75, 44, 52, 36, 16, 9, 37, 14, 83, 24, 91, 75, 96, 60, 59, 31, 22, 9, 10, 11, 71, 6, 33, 39, 69, 69, 49, 30, 29, 27, 78, 54, 60, 34, 24, 38, 90, 48, 29, 13, 83, 85, 42, 24, 73, 69, 93, 48, 64, 73, 50, 99, 44, 96, 38, 20, 30, 28, 8, 76, 40, 93, 8, 9, 50,
In those numbers, 3 numbers were repeated twice in a row:
71 (at the very beginning - 92, 19, 31, 84, 71, 71, 32, 12)
30 (right after the 71s - 71, 71, 32, 12, 60, 30, 30, 68, 82)
60 (pretty far in there - 6, 33, 39, 69, 69, 49, 30)
and just in case you wanted it,
SCAR Code:
program New;
var i,r,l:integer;
s:string;
begin
for i := 1 to 300 do
begin
r := random(99)+1;
if r=l then
writeln('Repeated a number ('+inttostr(r)+').');
l := r;
s := s + IntToStr(r)+', ';
if length(s)>500 then
begin
writeln(s);
s := '';
end;
end;
writeln(s)
end.