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.
cHJvZ3JhbSBrdWdlbDsKY29uc3QgcGkgPSAzLjE0MTY7CnZhciByYWRpdXMsIGZsYWNoZSA6IHJlYWw7CgpiZWdpbgoJd3JpdGUgKCd3aWUgZ3Jvc3MgaXN0IGRlciByYWRpdXMgZGVyIGt1ZWdlbCBpbiBbY21dPycpOyByZWFkbG4gKHJhZGl1cyk7CgkJZmxhY2hlIDo9IHJhZGl1cyogcmFkaXVzKiByYWRpdXMqIHBpOwoJCQp3cml0ZWxuICgnZGllIGZsYWNoZSBpc3QnICwgZmxhY2hlKTsKZW5kLgo=