Дана длина L окружности. Найти ее радиус R и площадь S круга, ограниченного этой окружностью, учитывая, что L = 2*pi*R, S = pi*R^2

В качестве значения pi использовать 3.14.

Program Begin14;
Var
L,R,S:Real;
Begin
ReadLn(L);
R:=L/(2*pi);
S:=pi*Sqr(R);
WriteLn('R = ',R:6:3);
WriteLn('S = ',S:6:3); 
ReadLn;
End.

автор: Sklyarov Sergej a.k.a. S9