СРОЧНО!!!! ** паскале надо составить программу!!!

Question

СРОЧНО!!!!
На паскале надо составить программу!!!

---

Answer 1

Var
   R:real;
Begin
Write('R = ');ReadLn(R);
WriteLn('L = ',2*Pi*R);
WriteLn('S = ',Pi*R*R);
End.