确实是很难呀~~大家都只看不回
我回了也是些屁话~~~

用枚举法！！！

procedure j;
var a,b,c,d,e;
begin
for i:=1 to n do
   begin
      for e:=1 to i do
         begin
            a:=i;
            b:=i+1;
            c:=i+2;
            e:=i+3;
            d:=i+4;
         end;
    end;
end;
我胡乱写的，呵呵

我乱写得
procedure j;
var a,b,c,d,e;
begin
   for i:=1 to n do begin
     for e:=1 to i do begin
       a:=i;
       b:=i+1;
       c:=i+2;
       e:=i+3;
       d:=i+4;
     end;
   end;
end;