Question

помогите пожалуйста ​

Answer 1

Ответ:

begin

   Readln(R);

   L:=2*pi*R;

   S:=pi*sqr(R);

   Writeln('Ответ: ', S);

end.