program exp_1;
type
colour=(red,orange,yellow,green,blue);
var
a,b,c,pri:colour;
n,e:integer;
begin
for a:= red to blue do
for b:= a to blue do
if(a<>b) then { }
for c:= b to blue do { }
if(a<>b) and (b<>c) then
begin
n:=n+1; { }
write(n:4); { }
end;
for e:= 1 to 3 do
begin
case e of { }
1:pri:=a;
2:pri:=b;
3:pri:=c;
end;
case pri of { }
red:write('red');
orange:write('orange');
yellow:write('yellow');
green:write('green');
blue:write('blue');
end;
end;
writeln('total number:',n); { }
readln
end.

program exp_1;
type
colour=(red,orange,yellow,green,blue);
var
a,b,c,pri:colour;
n,e:integer;
begin
for a:= red to blue do
for b:= a to blue do
if(a<>b) then {如果A和B颜色不同}
for c:= b to blue do {C从B到BLUE循环}
if(a<>b) and (b<>c) then
begin
n:=n+1; {累加总方案数}
write(n:4); {输出}
end;
for e:= 1 to 3 do
begin
case e of {分条件判断}
1:pri:=a;
2:pri:=b;
3:pri:=c;
end;
case pri of {输出}
red:write('red');
orange:write('orange');
yellow:write('yellow');
green:write('green');
blue:write('blue');
end;
end;
writeln('total number:',n); {输出}
readln
end.