program Josephus;

const MAX = 100000;

var n, m, i, j, count: integer;

a: array[1..MAX] of integer;

result: array[1..MAX] of integer;

inputFile, outputFile: text;

begin assign(inputFile, 'JOSEPHUS.INP');

assign(outputFile, 'JOSEPHUS.OUT');

reset(inputFile);

rewrite(outputFile);

readln(inputFile, n, m);

for i := 1 to n do a[i] := i; i := 0; count := n;

 while count > 0 do begin

         for j := 1 to m do

                                       begin repeat i := (i mod n) + 1;

                                        until a[i] > 0;

                                                    end;

                        result[count] := a[i];

                                             a[i] := 0;

count := count - 1;

end; for i := 1 to n do write(outputFile, result[i], ' ');

close(inputFile);

close(outputFile);

end.

< Đây bạn nhé bn  cố nhìn ảnh và so vào code xem có bị sai dấu ; hay sai dấu không tại mình ccopy code olala  pascal vào đây nó nằm ngang nên mình phải tự enter xuống sợ sai thôi>