В фраг­мен­те базы дан­ных пред­став­ле­ны све­де­ния о род­ствен­ных от­но­ше­ни­ях. Таб­ли­ца 1
ID Фа­ми­лия_И.О. Пол
2011 Косач-Квит­ка Л.П. Ж
2012 Ле­ви­тан И.И. М
2024 Шерер А.Ф. Ж
2045 Блок А.А. М
2056 Вру­бель М.А. Ж
2083 Ле­ви­тан Б.И. М
2094 Ле­ви­тан В.И. Ж
2115 Ку­ин­джи А.П. М
2140 Ле­ви­тан Р.Б. Ж
2162 Ле­ви­тан Л.Б. М
2171 Гип­пи­ус З.Н. Ж
2186 Мол­ча­ли­на С.А. Ж
2201 Ку­ин­джи П.А. М
Таб­ли­ца 2
ID_Ро­ди­те­ля ID_Ре­бен­ка
2011 2083
2011 2094
2012 2083
2012 2094
2024 2115
2056 2140
2056 2162
2083 2140
2083 2162
2094 2186
2094 2201
2115 2186
2115 2201

Опре­де­ли­те на ос­но­ва­нии при­ве­ден­ных дан­ных, сколь­ко всего вну­ков и вну­чек есть у Ле­ви­та­на И. И.

Допустим что 1 игрок увеличит 1 кучку в 3 раза =9 во 2 кучке 2                    2 игрок тоже увеличит в 3 раза 1 кучку получится в 1- 27 во 2- 2                      1 игрок увеличит 2 кучку в 3 раза получится 6 а в сумме получится 33       ответ:выйграет тот игрок который сделает ход первым.Это 1 вариант.         Допустим что 1 игрок увеличит 1 кучку в 3 раза =9 во 2 кучке 2                      2 игрок увеличит 2 кучку и получит 6 теперь в 1-9 во 2-6                                 1 игрок увеличит 1 кучку и получит В 1-27 во 2-6     ответ:выйграет тот игрок который сделает ход первым. Это 2 вариант.

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(ReadInteger('n='));
  var b:=a.Distinct.OrderBy(x->x).ToArray; b.Println
end.

Пример
n= 7
3 -5 6 3 3 4 1
-5 1 3 4 6

begin
  var n1:=ReadInteger('Длина первого массива-');
  var c:=ReadSeqInteger('Вводите массив:',n1).OrderBy(x->x).ToArray;
  var n2:=ReadInteger('Длина второго массива-');
  var d:=ReadSeqInteger('Вводите массив:',n2).OrderBy(x->x).ToArray;
  //собственно слияние
  var f:=new integer[n1+n2];
  var (ic,id,&if):=(0,0,0);
  repeat
    if c[ic]<d[id] then begin f[&if]:=c[ic]; ic+=1 end
    else begin f[&if]:=d[id]; id+=1 end;
    &if+=1
  until (ic=n1) or (id=n2);
  if ic=n1 then
    repeat
      f[&if]:=d[id]; id+=1; &if+=1
    until id=n2
  else
    repeat
      f[&if]:=c[ic]; ic+=1; &if+=1
    until ic=n1;
  Write('Массив F: '); f.Println(',')
end.

Пример
Длина первого массива- 6
Вводите массив: 4 0 -3 6 4 2
Длина второго массива- 5
Вводите массив: 3 6 -3 0 2
Массив F: -3,-3,0,0,2,2,3,4,4,6,6