Pascal约瑟夫问题

 program Project2;

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

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

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

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