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

Приложения:

Ответы

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