Написать программу вычисления обьем усеченного конуса

Const pi=3.141593;

var R, R1, H, V: real;

begin

write ('радиус нижнего основания R: '); readln (R);

write ('радиус верхнего основания R1: '); readln (R1);

write ('высота конуса H: '); readln (H);

V:=H*pi * (R*R+R*R1+R1*R1) / 3;

writeln ('объем конуса V = ', V:7:3);

end.

радиус нижнего основания R: 10

радиус верхнего основания R1: 15

высота конуса H: 8

объем конуса V = 3979.351