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