program smile;
var r, p, c, s: real;
begin
readln(r);
p:= 3.14;
c:= 2*p*r*r;
s:= p*r*r;
writeln(c);
writeln(s)
end.
Объяснение:
program smile;
var r, p, c, s: real;
begin
readln(r);
p:= 3.14;
c:= 2*p*r*r;
s:= p*r*r;
writeln(c);
writeln(s)
end.
Объяснение: