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

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