var S,R,c: real;
begin
writeln('Введите радиус круга: ');
readln(R);
S:=Pi*sqr(R);
c:=2*Pi*R;
writeln('S = ',S);
writeln('c = ',c);
end.
var S,R,c: real;
begin
writeln('Введите радиус круга: ');
readln(R);
S:=Pi*sqr(R);
c:=2*Pi*R;
writeln('S = ',S);
writeln('c = ',c);
end.