{$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!
Помогайте!