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

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