program ponor; var zadani,krok,krok2,pu:integer; useky:array[1..5000] of integer; rest:real; kroky:integer; a,b:integer; procedure vypocti(usek:integer); var zb,aa:real; us:real; begin if rest>=usek then rest:=rest-usek else begin us:=usek-rest; aa:=us/krok; zb:=(aa-trunc(aa))*krok; if zb=0 then begin kroky:=kroky+trunc(aa); rest:=0; end else begin rest:=sqrt(krok2-(zb*zb)); kroky:=kroky+trunc(aa); if b=(krok/2) then kroky:=kroky+1; end; end; end; begin read(zadani); rest:=0; kroky:=0; for a:=1 to zadani do begin read(krok,pu); krok2:=krok*krok; for b:=1 to pu do read(useky[b]); for b:=1 to pu do vypocti(useky[b]); writeln('Strazny ujde ',kroky,' ponorku.'); kroky:=0;rest:=0; end; end.