Один мальчик написал так о себе: "у меня 24 пальца, на каждой руке по 5, а на ногах 12". как это может быть?

Т.к. 5+5=12,то речь идет о восьмеричной системе счисления,  ребенок нормальный просто изучил восьмеричную систему

Получим формулы для необходимых вычислений.
Пусть ΔАВС вписан в окружность радиуса R с центром в точке О. ΔАВС - равносторонний, с углами при вершине, равными 60°. Опустим в этом треугольнике высоту из вершины В на сторону АС, получая точку D.
Соединим вершину А с центром описанной окружности и рассмотрим полученный ΔAOD. Этот треугольник прямоугольный, поскольку ОD - часть высоты (OD⊥ AC). AO - гипотенуза, равная R, ∠OAD=30°, как половина ∠BAC, поскольку в равностороннем треугольнике центр вписанной окружности является также точной пересечения бисектрисс, высот и медиан. Тогда OD=R/2, как катет, лежащий против угла 30°. AD=R×cos(30°)=R√3/2. Но AD=DC (BD- медана, как сказано выше), тогда AC=R√3
Площадь основания может быть найдена как AD×BD=(R√3/2)×(R+R/2)=(3R√3)/4

Теперь рассмотрим пирамиду ABCD (второй рисунок).
Она по условию правильная, т.е. все её боковые грани - одинаковые треугольники.
Рассмотрим ΔDOE, образованный высотой пирамиды DO=h, её апофемой DE=a и отрезком OE, соединяющим точку пересечения высоты пирамиды с её основанием и точку пересечения апофемы с ребром пирамиды ВС. Этот треугольник прямоугольный, поскольку высота пирамиды перпендикулярна плоскости её основания. Длина катета ОЕ известна: она равна длине отрезка OD из предыдущего чертежа, т.е. половине радиуса R. Длина апофемы может быть найдена по теореме Пифагора.

Существует формула для определения площади боковой поверхности пирамиды:

Площадь полной поверхности пирамиды складывается из площади основания и площади боковой поверхности.

Программа на языке PascalABC.Net
var
  a,h,r,s0,s1,s:double;
begin
  Write('Введите радиус: '); read(r);
  Write('Введите высоту: '); Read(h);
  s0:=0.75*sqr(r)*sqrt(3);
  a:=sqrt(sqr(h)+sqr(r)/4);
  s1:=3*r*sqrt(3)*a/2;
  Writeln('Sбок=',s1);
  Writeln('Sполн=',s1+s0);
end.

Тестовое решение:
Введите радиус: 20
Введите высоту: 15
Sбок=936.74969975976
Sполн=1456.36494203042

Var
    A: array[1..100, 1..100] of integer;
    B: array[1..100]of integer;
    i, j, k, n, m, imax: integer;
    manual: boolean;

begin
    writeln('Ручной ввод (true/false)==>');
    read(manual);
    
    if manual then begin
        writeln('Размер массива n, m ==>');
        read(n, m);
    end
    else begin
        n := random(10) + 5;
        m := random(10) + 5;
    end;
    
    for i := 1 to n do
    begin
        writeln();
        for j := 1 to m do
        begin
            if manual then
                read(a[i, j])
            else begin
                a[i, j] := random(100) - 50;
                write(a[i, j]:3, ' ');
            end;
        end;
    end;
    
    writeln();
    writeln();
    
    for j := 1 to m do
        if j mod 2 = 1 then begin
            k := k + 1;
            b[k] := 1;
            for i := 1 to n do
                b[k] := b[k] * a[i, j];
            write(b[k], ' ');
        end;
    
    writeln();
    
    for i := 1 to k - 1 do
    begin
        imax := i;
        for j := i + 1 to k do
            if b[j] > b[imax] then
                imax := j;
        n := b[i];
        b[i] := b[imax];
        b[imax] := n;
    end;
    
    for i := 1 to k do
        write(b[i], ' ');
end.