Казнь, Это название задачи такое Опции

[EXE]

Задача
На площадь выводят N человек, приговоренных к смерти, каждому из которым присвоен уникальный номер от 1 до N. Их расставляют по кругу по часовой стрелке по порядку. Казнь производится следующим образом: отсчитывают M человек, начиная с человека, стоящего после только что казненного, и этого M-го человека уводят на казнь. В начале казни отчет ведется от человека с номером 1. Узнать, человека с каким номером казнят K-м?

С клавиатуры вводятся числа: N, M, K

1<=N<=30000
1<=M<=30000
1<=K<=N


Я тут написал вроде, но не уверен. Посмотрите и подправьте если чего не так:
:low:

var
  n, m, k, dop_per: integer;

begin
  clrscr;
  TextColor(white);
  write('N: '); readln(n);
  write('M: '); readln(m);
  write('K: '); readln(k);
  dop_per:=m*k;
  repeat
    if dop_per>n then begin
      dop_per:=dop_per-n;
    end;
  until dop_per<=n;
  write(dop_per);
  readln;
end.