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.
Объяснение:
