Question

Разработать программу для расчёта площади
поверхности и объёма шара известного радиуса.

Answer 1

uses crt;
var r:integer;
v,s:real;
begin
readln(r);
s:=4*pi*r*r;
writeln(s);
v:=4/3*pi*r*r*r;
writeln(v);
end.