Program Flaviy_Array;
Uses CRT;
Const N = 8;
Var a: Array[1..N] of boolean;
    i, k, l, j: Byte;

Procedure Print;
Var i_: Byte;
Begin
For i_ := 1 to N do
    Begin
    If (a[i_]) then Write('   ')
              else Write(i_,'  ');
    End;
Writeln;
End;

Begin
ClrScr;
Write('До скольки считать?: '); Readln(k);
For i := 1 to N do
    Begin
    Print;
    ReadKey;
    While (l < k) do
          Begin
          If (j = N) then j := 1 else Inc(j);
          If (a[j] = False) then Inc(l);
          End;
    a[j] := True;
    If (i = N) then Writeln('Остался ',j)
               else Writeln('Вычеркиваем ',j);
    l := 0;
    End;
ReadKey;
End.

Источник: