label 1,2;
var a:array [1..100] of integer;
n,t,k,i,h,m,z:integer;
begin
write('n=');readln(n);
write('шаг=');readln(m);
write('кон.число=');readln(h);
writeln;
for i:=1 to n do a[i]:=i;
i:=h; a[i]:=0;z:=1;
1: i:=i-1;
if i<1 then i:=n;
if a[i]=0 then goto 1 else inc(t);
if t>m then begin a[i]:=0;t:=0;inc(z) end;
if z<n-1 then goto 1;
i:=1;
while a[i]=0 do inc(i);k:=i;
writeln('начато вычеркивание с ',a[i]);
writeln('порядок вычеркивания:');
writeln(a[i]);
for i:=1 to n do a[i]:=i;
i:=k; a[i]:=0;z:=1;t:=0;
2: i:=i+1;
if i>n then i:=1;
if a[i]=0 then goto 2 else inc(t);
if t>m then begin writeln(a[i]);a[i]:=0;t:=0;inc(z) end;
if z<n then goto 2;
end.