{Bosco Leung. ACSL Junior Division. Woburn Collegiate Institute. Contest #1}

uses crt;

var i,check,nume,denom,summarble,select,redmarble,bluemarble:integer; color,repornone:char;

ordersel:string;

begin clrscr;

for i:=1 to 5 do

begin check:=1;

nume:=1;

denom:=1;

writeln('Input the number of marbles selected, # of red, # of blue,'); readln(select,redmarble,bluemarble);

summarble:=redmarble+bluemarble;

if select=1 then begin writeln('input what is selected eg ''r'' for red or ''b'' for blue.'); readln(color);

if (color='R') or (color='r') then nume:=redmarble else if (color='B') or (color='b') then nume:=bluemarble; denom:=summarble;

end

else if select=2 then begin writeln('replacement or no replacement, order selected'); readln(repornone,ordersel);

if (repornone='Y') or (repornone='y') then

begin

repeat

if (ordersel[check]='R') or (ordersel[check]='r') then begin check:=check+1; nume:=nume*redmarble;

denom:=denom*summarble;

end

else if (ordersel[check]='B') or (ordersel[check]='b') then begin check:=check+1; nume:=nume*bluemarble; denom:=denom*summarble;

end

until (check=3);

end;

if (repornone='N') or (repornone='n')

then

begin

repeat

if (ordersel[check]='R') or (ordersel[check]='r') then begin check:=check+1;

nume:=nume*redmarble;

denom:=denom*summarble;

redmarble:=redmarble-1; summarble:=summarble-1;

end

else if (ordersel[check]='B') or (ordersel[check]='b') then begin check:=check+1; nume:=nume*bluemarble;

denom:=denom*summarble;

bluemarble:=bluemarble-1;

summarble:=summarble-1;

end

until (check=3);

end;

end;

writeln(nume,'/',denom);

end;

writeln('Please press to exit');

readln;

end.