Найти длину окружности L и площадь круга S заданного радиуса R: L = 2*pi*R, S = pi*R^2

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

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

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