Напишите пожалуйста

Question

Напишите пожалуйста

---

Answer 1

Var r: real;
Const pi=3.14;
Readln(r);
Writeln ('пл круга равна',2*pi*r);
End. Остальное сам подставишь