Помогите с Паскалем. Задача в прикрепленных.

Question

Помогите с Паскалем. Задача в прикрепленных.

---

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017

begin
  var R:=ReadReal;
  Writeln(pi*R*R:0:3,NewLine,2*pi*R:0:3)
end.