Question

Составите программу для вычисления площадь поверхности шара (S = πD2 ), если известен его радиус.

Answer 1

var

 r:integer;

begin

 readln(r);

 write(Pi*sqr(r*2));

end.