var
r:integer;
begin
readln(r);
write(Pi*sqr(r*2));
end.
Поделитесь своими знаниями, ответьте на вопрос:
Составите программу для вычисления площадь поверхности шара (S = πD2 ), если известен его радиус.
var
r:integer;
begin
readln(r);
write(Pi*sqr(r*2));
end.