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.
