% Calculates the surface area of a sphere given the radius

r=input('Enter the radius r: ');
A = 4*pi*r^2;
fprintf('r = %8.3f  =>  A = %10.3e\n', r, A)