1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

//Programmiersprache: C#
            int counter = 0;
            for (int i = 0; i <= 6; i++)
            {
                for (int j = 0; j <= 6; j++)
                {
                    for (int k = 0; k <= 6; k++)
                    {
                        counter++;
                        Console.WriteLine(counter.ToString()+":  "+i.ToString()+j.ToString()+k.ToString());
                    }
                }
            } 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

//Delphi:
var i,j,k,counter:integer;
begin
  counter:=0;
  for i:=0 to 6 do
  begin
    for j:=0 to 6 do
    begin
      for k:=0 to 6 do
      begin
        counter:=counter+1;
        WriteLn(IntToStr(counter)+':  '+IntToStr(i)+IntToStr(j)+IntToStr(k));
      end;
    end;
  end;
  ReadLn;
end.