pascal 6个圆圈构成三角形,每条边上三个圈,将自然数1-6 不重复地填圈位置上,使每条边之和相等.

我按你的意思,只用while语句实现的,写法甚搞笑,完全随机..
var a:array[1..6]of integer;
t,i1,i2:integer;
begin
randomize;
a[1]:=1;
a[2]:=2;
a[3]:=3;
a[4]:=4;
a[5]:=5;
a[6]:=6;
while not((a[1]+a[2]+a[3]=a[3]+a[4]+a[5])and(a[1]+a[2]+a[3]=a[5]+a[6]+a[1])) do begin
i1:=random(6)+1;
i2:=random(6)+1;
t:=a[i1];
a[i1]:=a[i2];
a[i2]:=t;
end;
write(a[1],' ',a[2],' ',a[3],' ',a[4],' ',a[5],' ',a[6]);
end.
除了while语句没有使用任何其他的流程控制语句.完全符合你的要求...不过运行时间就看RP了.

呵呵，抱歉，我只知道答案。无法用WHILE句式实现，答案是：
2
4 3
5 1 6

图有没有的啊