Составить алгоритм определения последовательности номеров удаляемых спортсменов.

const
  (*Максимальное количество участников считалочки.*)
  M = 100;
var
  N, K, L, i, j : Word;
  Arr : array[1..M] of Word;
  S : String;
begin
  repeat
    Writeln('Задайте начальное количество участников, не более ', M, ':');
    Readln(N);
    Writeln('Задайте интервал счёта:');
    Readln(K);
    Writeln('Задайте конечное количество участников:');
    Readln(L);
 
    (*Записываем в массив номера участников.*)
    for i := 1 to N do Arr[i] := i;
 
    Writeln('Счёт запущен, начиная с участника под номером 1.');
    i := 1;
    while N > L do begin
      (*Выбывает участник с индексом: (i + K - 1) mod N.*)
      i := (i + K - 1) mod N;
      if i = 0 then i := N;
      Writeln('Выбыл участник под номером: ', Arr[i]);
      (*Т. к., участник с индексом i выбывает, все участники с бОльшими номерами
      сдвигаются на одну позицию влево.*)
      for j := i to N - 1 do Arr[j] := Arr[j + 1];
      (*Количество участников теперь стало на 1 меньше.*)
      N := N - 1;
    end;
    
    (*Ответ.*)
    Writeln('Остались участники с номерами:');
    for i := 1 to N do begin
      if i > 1 then Write(', ');
      Write(Arr[i]);
    end;
    Writeln;
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.