ПОМОГИТЕ ПОЖАЛУЙСТА !! НУЖНО НАПИСАТЬ ПРОГРАММУ ВЫЧИСЛЕНИЯ ОБЪЁМА УСЕЧЕННОЙ ПИРАМИДЫ , В...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА !! НУЖНО НАПИСАТЬ ПРОГРАММУ ВЫЧИСЛЕНИЯ ОБЪЁМА УСЕЧЕННОЙ ПИРАМИДЫ , В ПАСКАЛЬ . V=H(Sосн1+Sосн2+корень(Sосн1 Sосн2))/3 . ПОМОГИТЕ ПОЖАЛУЙСТА В ПАСКАЛЬ .ОЧень прошу

Answer 1

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