ПОМОГИТЕ ПОЖАЛУЙСТА !! НУЖНО НАПИСАТЬ ПРОГРАММУ ВЫЧИСЛЕНИЯ ОБЪЁМА УСЕЧЕННОЙ ПИРАМИДЫ , В ПАСКАЛЬ . 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