13.Используя законы логических операций закончи выражение: НЕ (НЕ А)=...

1. Возьмем некого человека X. Остается 16 человек, значит, найдется язык на котором этот человек говорит с группой из 6 человек (16 / 3). Пусть этот язык будет x.

2. Теперь у нас есть группа из 6 человек. Возьмем в ней человека Y. Он должен общатся с группой на другом языке, иначе, уже есть 3 человека с языком x. Останется 5 человека, значит, найдется язык на котором этот человек говорит с группой из 3 человек (5 / 2). Пусть этот язык будет y.

3. Далее, людям из этой группы из 3-ех человек надо как-то общатся. Если они говорят на третьем языке, то их трое - доказнно. Еще они знают языки x и y. Если двое из них общаются на иксе, то они состаляют тройку с A, если на y с B. Доказанно.

const    N = 25;var    arr: array[1..N, 1..2] of real;    firstNumber, secondNumber: real;    i, j: integer;begin    for i := 1 to N do        begin            Readln(firstNumber, secondNumber);                        Writeln();                        if (firstNumber + secondNumber > 100) then                begin                    j := j + 1;                                        arr[j, 1] := firstNumber;                    arr[j, 2] := secondNumber;                end;        end;        Writeln();        for i := 1 to j do        Writeln(arr[i, 1], ' | ', arr[i, 2]);end.