Вкомпании у каждых двух людей ровно пять общих знакомых. докажите, что количество пар знакомых делится на 3. help! ничего не понимаю

выразите количество троек попарно знакомых людей через количество пар знакомых

обозначим через р количество пар знакомых людей (то есть число рёбер в соответствующем графе), а через т – количество треугольников в этом графе. по условию каждое из рёбер входит ровно в 5 треугольников. с другой стороны, в каждый из т треугольников содержит ровно 3 ребра. следовательно,5р = 3т.   поскольку 3 и 5 – взаимно простые числа, р делится на 3.

Задачку намудрили прилично))

// PascalABC.NET 3.0, сборка 1111
begin
  var s:='I wake up at 7 o''clock. Today is 25 12 2015 - 6 days till New Year';
  var n:integer;
  Writelines('result.txt',
    s.ToWords.where(x->TryStrToInt(x,n)).where(x->Odd(StrToInt(x))).
      OrderByDescending(x->x))
end.

Текстовый файл result.txt для данного примера находится во вложении.
Сортировка выполнена, как сортировка строк, а не чисел, т.е. в лексикографическом порядке. Такое решение принято в связи с тем, что в задании говорится о выводе именно слов, а не числовых значений.

program raf105;

var

 A: real;

 x: integer;

begin

 write('Введите число в битах: ');

 readln(A);

 writeln('1. Байт');

 writeln('2. Килобайт');

 writeln('3. Магабайт');

 writeln('4. Гигабайт');

 write('Введите номер единицы, в которую нужно перевести: ');

 readln(x);

 if x=1 then writeln(A/8,' байт')

   else if x=2 then writeln(A/8000,' кб.')

     else if x=3 then writeln(A/8000000,' мб.')

       else if x=4 then writeln(A/8000000000,' гб.')

         else writeln('Ошибка');

end.

PascalABC 3.4.2