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

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