Алгоритм

[VladimirAleks]

Как написать код для автоматического получения такой последовательности, где три переменных (a,b,c) и каждая постепенно увеличивается:
111
112
121
122
211
212
221
222
311
312
321
322
331
332
333
411
412
421
422
431
432
и так далее

[quit]

уверен есть посимпатичнее алгоритм, но времени думать над красотой нет

  for i := 0 to 4 do
  begin
    a:=i+1;
    b:=1;
    c:=0;
    repeat
      if b >= c then c := c + 1
      else begin b := b + 1; c := c - 1;  end;
      //здесь выводим abc
    until ((b=a) and (c=a));
  end;

[Utkin]

Забей их в массив и доставай по индексу.