Ответ Автор - KinoBi28 Program ...;Var r, s, real;Begin Writeln(“”);read (r);s:=3.14*r*r;Writeln(s);End.