Pascal约瑟夫问题

program Project2;

{$APPTYPE CONSOLE}
const
n=13;
m=5;



  Type
  peopleno= array[1..n] of integer;

var
  datering:peopleno;
  s,p,i:integer;
  flag:boolean;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  for i:=1 to n do datering[i]:=1;
  s:=0;{用于报数};
  p:=0;{出圈人数};
  flag:=true;
  while flag = true do
  for i:=1 to n do
  begin
   s:=s + datering[i];
   if s=m then
   begin
   s:=0;
   datering[i]:=0;
   p:=p + 1;
   writeln('p=',p,i:4);
   if p=n then flag:=false;{当flag=false时，表示圈中无人};
   end;
   end;
   readln;
end.