Allein auf weiter Flur

[DeddyH]

Mal eine bescheuerte Lösung, die dann aber auch die geforderten 2 Schleifen benutzt:

Delphi-Quellcode:

var i, j, Zahl: integer;
begin
  Zahl := 0;
  for i := 1 to 3 do
    begin
      for j := 1 to 11 do
        begin
          inc(Zahl);
          Memo1.Lines.Add(inttostr(Zahl));
        end;
    end;
end;