Начерти луч bk,семетричный лучу am относительно оси

Среднее арифметическое чисел 10,6- мы должны сложить числа,10+6=16,разделить на количество складываемых чисел,то есть , на 2 . 16/2 =8. И так,среднее арифметическое чисел 10 и 6=8
среднее арифметическое чисел 1,8-складываем,получаем 15. затем делим на количество складываемых чисел,на 2,15/2=7,5. Среднее арифметическое равно 7,5
среднее арифметическое 8-ну , возможно это опечатка,ну,хотя и здесь есть среднее арифметическое. Так как мы имеем только одно число 8,то делим его на 1,и получаем 8. Среднее арифметическое равно 8
среднее арифметическое 6,4-складываем,получаем 10. Делим на 2,так как чисел 2,и получаем 5. Среднее арифметическое равно 5.
Задача.
составляем пропорцию:
40 детей-100%
х детей-20 %
и так ,смотрим,зависимость прямая,то есть,чем больше детей,тем больше процент,чем меньше детей,тем меньше процент.Ну,за х мы берем девочек. х=40*20/100=8(д)-девочки
ответ: секцию посещает 8 девочек.

Можно, например, так:
 11 10  4
  5  9  6
  8  3  7

Всего есть 72 решения данной задачи.

uses math;

var a,b,c,d,e,f,g,h,i: integer;
var matrix: array [1..9] of integer;
var counter: integer;

procedure check_matrix();
label repeated;
var i:integer;
var storage: array [1..9] of integer;
begin
        for i := 1 to 9 do begin
                storage[i] := 0;
        end;

        for i := 1 to 9 do begin
                if storage[matrix[i] - 2] <> 0 then begin
                        goto repeated;
                end;
                storage[matrix[i] - 2] := 1;
        end;

        if (matrix[2] * matrix[3] = matrix[4] * matrix[7]) and (matrix[4] * matrix[6] = matrix[2] * matrix[8]) and (matrix[7] * matrix[8] = matrix[3] * matrix[6]) then begin
                writeln('', matrix[1]:3, '', matrix[2]:3, '', matrix[3]:3);
                writeln('', matrix[4]:3, '', matrix[5]:3, '', matrix[6]:3);
                writeln('', matrix[7]:3, '', matrix[8]:3, '', matrix[9]:3);
                writeln();
                counter := counter + 1;
        end;

        repeated:;
end;

begin

counter := 0;

for a:=1 to 9 do begin
matrix[1] := a + 2;
for b:=1 to 9 do begin
matrix[2] := b + 2;
for c:=1 to 9 do begin
matrix[3] := c + 2;
for d:=1 to 9 do begin
matrix[4] := d + 2;
for e:=1 to 9 do begin
matrix[5] := e + 2;
for f:=1 to 9 do begin
matrix[6] := f + 2;
for g:=1 to 9 do begin
matrix[7] := g + 2;
for h:=1 to 9 do begin
matrix[8] := h + 2;
for i:=1 to 9 do begin
matrix[9] := i + 2;

check_matrix();

end; end; end; end; end; end; end; end; end;

writeln('total: ', counter);

end.