Сколько краски потребуется на окраску конуса?

Из куба заданного объема решили выточить прямой круговой конус. Основание которого лежит в одной из граней куба, наибольшего объема. Известен расход краски. Сколько краски потребуется на окраску конуса?

INPUT "vvedite objem kuba=", v
INPUT "vvedite rashod kraski na 1 kv.metr=",r 
a=v^(1/3)
r = a / 2
s1 = 3.14 * r ^ 2
s2 = 3.14 * r ^2* SQR(5)
s = s1 + s2
PRINT "rashod kraski na konus=";s*r

автор: кот Бегемот