Разработать программу, которая вычисляет одну из функций в указанной точке написать программы в c#
2 и 3

Нужно узнать племянницу Черных Н.И.
То есть это некий человек у которого есть племянница . Для начала нужно узнать ее родителей, а затем узнать , есть ли у неё брат или сестра и посмотреть их детей.
Давайте узнаём ее родителей
Посмотрим на первую таблицу , находим ID Черных Н.И. , ID=10 , это первая строка .
Далее смотрим на вторую таблицу , где написано ID ребёнка . Находим число 10 , оно находится в самом конце , а слева число 85 , это один из его родителей . Теперь смотрим на таблицу 1 и смотрим кто это такой . Это Гуревич И.Т. Это его папа, так как написан под мужской.
Теперь снова смотрим на таблицу 2. Где написано ID родителя . Находим сейчас детей Гуревич И.Т. , то есть ищем ID 85.
У этого человека есть ребёнок под ID 13, 82, 10.
Под ID 10 это его сын, у которого мы и должны определить племянницу.
Смотрим на ID 13. То есть это его сестра , и мы должны найти ее детей. Теперь смотрим на таблицу 2 где ID родителя , ищем 13. У неё есть дети под ID 42, 23 теперь смотрим на 1 таблицу и определяем их под
Под ID 42 пол женский нам подходит
Под ID 23 пол мужской нам не подходит
Не забываем что есть ещё ID 82 это его брат . То есть брат Черных Н.И и мы видим что во 2 таблице , где ID родителя нет этого номера , это значит , что у его брата нет детей .
А значит наш ответ под номером ID 42 это Цейс А.Т.
Надеюсь я

Var a,b,c,n:integer;
begin
for a:=1 to 7 do
  for b:=a+1 to 8 do
    for c:=b+1 to 9 do
      begin
      n:=a*100+b*10+c;
      write(n:4)
      end;
end.

var
  i,j,n:integer;
  a:array[1..4,1..5]of real;
begin
for i:=1 to 4 do
  begin
  for j:=1 to 5 do
    begin
    a[i,j]:=random*2-1;
    write(a[i,j]:20:15);
    if a[i,j]>=0 then n:=n+1;
    end;
  writeln;
  end;
writeln('Количество неотрицательных: ',n);
end.

var
  i,j,sum:integer;
  a:array[1..3,1..4]of integer;
begin
for i:=1 to 3 do
  for j:=1 to 4 do
    readln(a[i,j]);
writeln('Массив:');
for i:=1 to 3 do
  begin
  for j:=1 to 4 do
    begin
    sum:=sum+a[i,j];
    write(a[i,j]:4);
    end;
  writeln('sum=':8,sum);
  sum:=0;
  end;
end.