{$APPTYPE CONSOLE}

uses SysUtils,math;

var a,r:integer;
s,angle:real;
begin
readln(a,r);
if a/2>=r then s:=pi*r*r
else begin
  s:=pi*r*r;
  angle:=2*arccos((a/2)/r);
  s:=s-4*(((r*r)/2)*(angle-sin(angle)));
end;
writeln(s);
readln;
end.

Достали эти WA!
Помогайте!