var Zad : Word; iZad : Word; pZnOdk : array [1..65000] of Integer; iPole, MaxPole, PoleSize : Word; NumL,NumA : Word; DoRead:Boolean; OdkazLen : Word; pPocTok : Word; begin Readln(Zad); MaxPole := 65000; for iZad := 1 to Zad do begin DoRead := true; PoleSize := 0; Writeln('Zadani ',iZad,':'); while DoRead do begin Read(NumL); Readln(NumA); if NumL>0 then begin Inc(PoleSize); pPocTok := 0; pZnOdk[PoleSize] := NumA; iPole := PoleSize; while (iPole>1) and (pPocTok<250001) do begin Dec(iPole); if pZnOdk[iPole]>0 then begin Dec( pZnOdk[iPole] , NumL ); Inc( pPocTok ); end; end; Writeln(pPocTok); end else DoRead := false; end; (* DoRead *) MaxPole :=PoleSize; Writeln; end; (* for iZad *) { Writeln('Hotovo!');} end.