program VolumeOfCone;
{
	Задача:
	- 27 из "Turbo Pascal в задачах и примерах"
	- автор сборника Никита Культин
	Решение:
	- автор Дмитрий Кузнецов
    - цена $108.00
}
const
	PI = 3.1415926;
var
	r, h, vol		:real;
begin
writeln('Высчитать ...');
write(' Радиус (м):');
readln(r);
writeln;
 
write(' Высота (м):');
readln(h);
writeln;
 
vol := 1 / 3 * r * r * h;
 
writeln('Объем конуса (м3): ', vol:6:2, '.')
end.

cHJvZ3JhbSBWb2x1bWVPZkNvbmU7CnsKCdCX0LDQtNCw0YfQsDoKCS0gMjcg0LjQtyAiVHVyYm8gUGFzY2FsINCyINC30LDQtNCw0YfQsNGFINC4INC/0YDQuNC80LXRgNCw0YUiCgktINCw0LLRgtC+0YAg0YHQsdC+0YDQvdC40LrQsCDQndC40LrQuNGC0LAg0JrRg9C70YzRgtC40L0KCdCg0LXRiNC10L3QuNC1OgoJLSDQsNCy0YLQvtGAINCU0LzQuNGC0YDQuNC5INCa0YPQt9C90LXRhtC+0LIKICAgIC0g0YbQtdC90LAgJDEwOC4wMAp9CmNvbnN0CglQSSA9IDMuMTQxNTkyNjsKdmFyCglyLCBoLCB2b2wJCTpyZWFsOwpiZWdpbgp3cml0ZWxuKCfQktGL0YHRh9C40YLQsNGC0YwgLi4uJyk7CndyaXRlKCcg0KDQsNC00LjRg9GBICjQvCk6Jyk7CnJlYWRsbihyKTsKd3JpdGVsbjsKCndyaXRlKCcg0JLRi9GB0L7RgtCwICjQvCk6Jyk7CnJlYWRsbihoKTsKd3JpdGVsbjsKCnZvbCA6PSAxIC8gMyAqIHIgKiByICogaDsKCndyaXRlbG4oJ9Ce0LHRitC10Lwg0LrQvtC90YPRgdCwICjQvDMpOiAnLCB2b2w6NjoyLCAnLicpCmVuZC4=

OS41NgoxMi41Ngo=

9.56
12.56