uses math;
const p=3.14;
var a,r:integer;
    s,angl,cosa:real;

begin
  readln (a,r);
  if (2*r<a) then
    s:=p*r*r
  else
    if (sqrt(2)*r>a) then
      s:=a*a
    else
      begin
        cosa:=a/(2*r);
        angl:=2*arccos(cosa);
        angl:=p/2-angl;
        s:=((a/2)*sqrt(r*r-(a*a)/4))+angl*r*r/2;
      end;
  writeln (s*4:3:3);
end.