穷举法
                     
   穷举法是基于计算机特点而进行解题的思维方法。一般是在一时找不出解决问题的更好途径时，可以根据问题中的部分条件（约束条件）将所有可能解的情况列举出来，然后通过一一验证是否符合整个问题的求解要求，而得到问题的解。这种解决问题的方法我们称之为穷举算法。穷举法特点是算法简单，但运行时所花费的时间量大。有些问题所列举出来的情况数目会大得惊人，就是用高速的电子计算机运行，其等待运行结果的时间也将使人无法忍受。另外，穷举法解决问题时，应尽可能将明显的不符合条件的情况排队在外，以尽快取得问题的解。

program flag;
var
a:array[1..4] of char;
s,i,j,k,l:integer;
begin
a[1]:='b';
a[2]:='g';
a[3]:='r';
a[4]:='y';
for i:=1 to 4 do
  for j:=1 to 4 do
    if i<>j then
      for k:=1 to 4 do
        if (j<>k)and(i<>k) then
          for l:=1 to 4 do
            if (k<>l) and (i<>l) and(j<>l) then
              begin
                write(a[i],a[j],a[k],a[l],' ');
                s:=s+1;
              end;
writeln(s);
end.

　

program p1;
var
a,b:integer;
begin
while (a+5)*4<>b+5 do
begin
a:=a+1;
b:=50-a;
end;
writeln(a, ' ', b) ;
end.

program p2;
var
a,b,c:integer;
begin
a:=24 div 3; b:=a;c:=a;
b:=b - a div 2; c:=c- a div 2; a:=a*2;
a:=a - b div 2; c:=c - b div 2; b:=b*2;
b:=b - c div 2; a:=a - c div 2; c:=c*2;

a:=a+3;b:=b+3;c:=c+3;
writeln(a,' ',b,' ' ,c)
end.

很具体了...感谢!!