|  | 
|  | 
| back to board | why WA on test#3 usesSysUtils ,Math;
 
 Var
 a, R:integer;
 s :Real;
 begin
 ReadLn(a,R);
 If R > 0.5*a then
 S := pi*R*R + 2*a*sqrt(R*R-0.25*a*a) -4*R*R*arcCos(0.5*a/R);
 else S := pi * R*R;
 WriteLn(S :0:3);
 end.
Re: why WA on test#3 You didn't write another one requirement for this programm | 
 | 
|