var
   Arr: array [1..16] of real;
   D: byte;
begin
     for D:=1 to 16 do Arr[D]:=cos(D)/D;
     for D:=1 to 16 do begin
         if(Arr[D]>Arr[D+1]) or (Arr[D]>Arr[D-1])
            then Writeln(Arr[D]:0:2);
     end;
Readln;
end.