Нужно написать программу вычисления объёма усеченной пирамиды , в паскаль . v=h(sосн1+sосн2+корень(sосн1 sосн2))/3 . в паскаль

Var
  h,s1,s2,v:real;
begin
  Write('Площадь нижнего основания пирамиды: '); Read(s1);
  Write('Площадь верхнего основания пирамиды: '); Read(s2);
  Write('Высота пирамиды: '); Read(h);
  v:=h*(s1+s2+sqrt(s1*s2))/3;
  Writeln('Объем пирамиды: ',v)
end.

Пример
Площадь нижнего основания пирамиды: 28
Площадь верхнего основания пирамиды: 17.5
Высота пирамиды: 9
Объем пирамиды: 202.907830863536