Площадь поверхности правильной пирамиды через апофему
<span><span>L - апофема (опущенный перпендикуляр OC из вершины С, на ребро основания АВ)
</span><span>P - периметр основания
</span><span>So - площадь основания
var
L, P, So: real;
begin
readln(L, P, So);
writeln('S = ', 0.5 * P * L + So);
<span>end.</span></span></span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrGen(10,i->i+9); a.Println;
a:=a.Select(t->t.IsEven ? 2*t : t).ToArray; a.Println
end.
<u>Результат</u>
9 10 11 12 13 14 15 16 17 18
9 20 11 24 13 28 15 32 17 36
Че за фигня это не 1 - 4 класс