1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

  While (I <= N) And Go Do Begin

     Application.ProcessMessages;
     If (I Mod 100 = 0) Then Begin
       ZeitY := GetTickCount - ZeitX;
       ZeitReal := ZeitY / 1000.0;
       ZeitR.Text := FloatToStrF(ZeitReal, ffFixed, 6, 3) + ' sec.';
       Str(I, AnzStel);
       StelleX.Text := AnzStel;
     End;

     Stop.Enabled := True;
     Clear.Enabled := False;
     {* Ausmultiplizieren in Vektorschreibweise *}

     For W := -1 To I Do Begin
         Inc(K[W + I], 2 * A[W]);
     End;  {* For *}

     K[2 * I] := K[2 * I] + 1;


     {* Stellenübertrag *}

     For W := 2 * I DownTo -1 Do Begin
         Z := 0;
         While (K[W] > 9) Do Begin
           Dec(K[W], 10);
           Inc(Z);
         End;
         Inc(K[W - 1], Z);
     End;  {* For *}


     {* 10'000 fache Eingabe und 10'000 fache Multiplikationssumme *}

     Summe1 := Round(1.0E06 * K[-2] + 1.0E05 * K[-1] + 1.0E04 * K[0] +
               1000.0 * K[1]);
     Summe1 := Summe1 + Round(100.0 * K[2] + 10.0 * K[3] + 1.0 * K[4]);
     Summe2 := Round(10000.0 * ZAHL);


     {* Grösse der Eingabe erreicht / Oder letzte Ziffer = 9 *}

     If (Summe1 >= Summe2) Or (A[I] = 9) Then Begin
        Inc(I);
        For W := -2 To 2 * I Do Begin
            K[W] := S[W];
        End; {* For *}
     End {* If (Summe1 ... Then *}


     {* Sonst: Letzte Ziffer um 1 erhöhen *}

     Else Begin
        Inc(A[I]);
        For W := -2 To 2 * I Do Begin
            S[W] := K[W];
        End; {* For *}

     End;  {* IF (Summe1 ... Else *}
  End;  {* While I <= N *}					

1:
2:
3:

     For W := -1 To I Do Begin
         Inc(K[W + I], 2 * A[W]);
     End;  {* For *}					

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

     If (Summe1 >= Summe2) Or (A[I] = 9) Then Begin
        Inc(I);
        For W := -2 To 2 * I Do Begin
            K[W] := S[W];
        End; {* For *}
     End {* If (Summe1 ... Then *}


     {* Sonst: Letzte Ziffer um 1 erhöhen *}

     Else Begin
        Inc(A[I]);
        For W := -2 To 2 * I Do Begin
            S[W] := K[W];
        End; {* For *}

     End;  {* IF (Summe1 ... Else *}					

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

     if (Summe1 >= Summe2) or (A[I] = 9) then
     begin
        Inc(I);
        CopyMemory(@K[-2], @S[-2], 2 * I + 3);
     end {* If (Summe1 ... Then *}
     {* Sonst: Letzte Ziffer um 1 erhöhen *}
     else
     begin
        Inc(A[I]);
        CopyMemory(@S[-2], @K[-2], 2 * I + 3);
     end;  {* IF (Summe1 ... Else *}