begin

 var r := ReadReal();

 var S: Action2<real, real> :=  

   (percent, radius)-> Println(percent * Round(Pi, 2) * radius ** 2);

 S(1, r);

 S(0.3, r);

end.