program kugel;
const pi = 3.1416;
var radius, flache;

begin
	write ('wie gross ist der radius der kuegel in [cm]?') readln (radius);
		flache := radius* radius* radius* pi
		
	writeln ('die flache ist' , flache);
end.