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

Площадь поверхности правильной пирамиды через апофему L - апофема (опущенный перпендикуляр OC из вершины С, на ребро основания АВ) P - периметр основания So - площадь основания var    L, P, So: real; begin      readln(L, P, So);      writeln('S = ', 0.5 * P * L + So); end.