Составить программу вычисления объема цилиндра и конуса, которую имеют одинаковую высоту H и одинаковый радиус основания R. Язык Basic

PRINT "Введите r:"
INPUT r
PRINT "Введите h:"
INPUT h
pi=3.14159
v1=pi*r*r*h
v2=1/3*pi*r*r*h
PRINT "Объем цилиндра v1:"
PRINT v1
PRINT "Объем конуса v2:"
PRINT v2