const pi=3.14;
var R, k: real;
begin
k:=0;
R:=0;
WriteLn('Введите значение R: ');
Read (R);
k:=R;
R:=2*pi*R;
Writeln ('L= ', R);
k:=pi*Sqr(k);
Writeln ('S= ', k);
end.
const pi=3.14;
var R, k: real;
begin
k:=0;
R:=0;
WriteLn('Введите значение R: ');
Read (R);
k:=R;
R:=2*pi*R;
Writeln ('L= ', R);
k:=pi*Sqr(k);
Writeln ('S= ', k);
end.