P1862囧--灯的排列--囧

Question

P1862 囧--灯的排列--囧

Answer 1

program qc;
var
n,i,j:longint; s:longint; ch:longint; sum:longint;
begin
readln(n);
read(ch);
while ch0 do
begin
sum:=sum+1;
n:=n-ch+1;
read(ch);
end;
n:=n-sum+1;
s:=n;
i:=n-1; j:=2;
while j