program pippo (input, output); const max = 20; var n,m,c : integer; cd : array[1..max] of integer; sd : array[1..max] of boolean; i : integer; caso : integer; k : integer; blow : integer; function totale : integer; var t : integer; i : integer; begin t:=0; for i:=1 to n do begin t:=t+ord(sd[i])*cd[i]; end; totale:=t; end; { totale } function maxx(a,b : integer):integer; begin if a>b then maxx:=a else maxx:=b; end; begin reset(input,'fuses.in'); caso:=0; read(n,m,c); while((n<>0)and(m<>0)and(c<>0)) do begin blow:=0; caso:=caso+1; readln; {legge capac. dispos.} for i:=1 to n do begin readln(cd[i]);end; {inizializza stato disp} for i:=1 to n do sd[i]:=false; {legge stato disp} for i:=1 to m do begin readln(k); sd[k]:=not sd[k]; blow:=maxx(blow,totale); end; {output} writeln('Sequence ',caso:1); if totale>c then begin writeln('Fuse was blown.'); end else begin writeln('Fuse was not blown.'); writeln('Maximal power consumption was ',blow:1,' amperes.'); end; writeln; read(n,m,c); end; close(input); end.