uses crt;
var o:array[0..1000] of boolean;
    i,dem,n,m,k:word;
begin
    clrscr;
    readln(n,k);
    m:=n;dec(k);
    fillchar(o,sizeof(o),true);
    while m<>5 do
        begin
            dem:=0;
            for i:=k+1 to n do
               if o[i]=true then
                  begin
                      inc(dem);
                      if dem=6 then break;
                  end;
            if dem<>6 then
            for i:=1 to n do
               if o[i]=true then
                  begin
                      inc(dem);
                      if dem=6 then break;
                  end;
            o[i]:=false;
            k:=i;
            dec(m);
        end;
    for i:=1 to n do
        if o[i]=true then write(i,' ');
readln;
end.

Nếu có sai thì nói mình nhé.

=======================

program Hello;
uses crt;
var n,i,d,k:integer;
    vt:array[1..1000] of byte;
begin
    readln(n,k);
    k:= k - 1;
    d:=n;
    i:=0;
    while d > 5 do
        begin
            inc(i);
            inc(k);
            if k > n then
                k:= k - n;
            while vt[k] = 1 do
                inc(k);
            if i = 6 then
                begin
                    vt[k]:=1;
                    i:=0;
                    d:= d - 1;
                end;
            
        end;
    for i:= 1 to n do
        if vt[i] = 0 then
            write(i,' ');
end.