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

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.