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

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