Question

Вычислить площадь перомиды  Pascal ABCПОМОГИТЕ ПЛИЗ

Answer 1

Площадь поверхности правильной пирамиды через апофему
L - апофема (опущенный перпендикуляр OC из вершины С, на ребро основания АВ)
P - периметр основания
So - площадь основания

var
   L, P, So: real;
begin
     readln(L, P, So);
     writeln('S = ', 0.5 * P * L + So);
end.