Program Ponork; var i, j, krok, kroku, useku, vstupu: integer; delka: real; zbytek2: real; begin readln(vstupu); for i:=1 to vstupu do begin kroku:=0; zbytek2:=0; readln(krok, useku); for j:=1 to useku do begin readln(delka); if zbytek2>0 then begin Delka:=delka-(sqrt(sqr(krok)-zbytek2)); Inc(kroku); end; while delka>=krok do begin Delka:=Delka-krok; Inc(kroku); end; zbytek2:=sqr(delka); end; if (4*zbytek2)>sqr(krok) then Inc(kroku); Writeln('Strazny ujde ', kroku, ' ponorku.'); end; end.