Кто действует по алгоритму? 11 букв

Обозначим буквой А тех, кто изучает ТОЛЬКО английский, буквой К - тех, кто ТОЛЬКО китайский, буквой Н - тех, кто только немецкий. Тех, кто изучает все 3 языка вместе обозначим буквой х.
Тогда для английского языка можем записать равенство:
А + (15-x) + (17-x) + x = 42
Аналогичные равенства можем записать и для других языков
В конце концов, получим 3 равенства:
А - х = 10
К - х = 5
Н - х = 15
Также нам известно, что как минимум один язык изучают (100-20) = 80 человек.
Составим ещё одно равенство:
А + К + Н + (17 - х) + (15 - х) + (13 - х) + х = 80
Упростив его, получим
А + К + Н - 2х = 35

Сложим ранее полученные 3 равенства, получим
А + К + Н - 3х = 30.

Если вычесть последнее равенство из предпоследнего, получим
х = 5, отсюда (А + К + Н) = 45
ответ: 45 (15 - англ, 10 - кит. , 20 - нем.)

Const n=6;
var a:array[1..n,1..n] of integer;
i,j,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(50);
   write(a[i,j]:4);
  end;
  writeln;
 end;
for i:=2 to n do
 for j:=1 to i-1 do
  begin c:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=c; end;
writeln('Полученный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходный массив:
   3  35  21   1  39  48
  39  44   2  43  16  28
  15  32  46  43  45   3
  19   7  25  13   0  36
  44  33  21  16  11  11
  22  48  28  36   1  12
Полученный массив:
   3  39  15  19  44  22
  35  44  32   7  33  48
  21   2  46  25  21  28
   1  43  43  13  16  36
  39  16  45   0  11   1
  48  28   3  36  11  12