Составьте программу вычисляющую площадь круга и вычисляющую 30% от площади круга, используя подпрограмму ПРОЦЕДУРА. Язык - паскаль. пи =3.14

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.