6решите if2 и if3 из встроенного в 14: 15 я удалю вопр

слушай можешь через 15 мин написать понятней

{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"}
const
m=100;
var
a:array[1..m,1..m]of integer;
i,j,S,n,k: integer;
begin
Readln(n);
    for i:=1 to n do
        begin
             writeln;
                 for j:=1 to n do
                      begin
                            a[i,j]:=random(100)-50;
                             write(a[i,j]:4);
                                  
                      end;
         end;
for i:=1 to n do
  if a[i,i]>0 then
        begin
           s:=s+a[i,i];
           k:=k+1;
       end;
writeln;
 if   k<>0 then
      writeln('SR=', s/k)
 else
       writeln('Net <0');
end.

Допустим, верно первое утверждение, а два другие ложны. Тогда получится, что и Петр, и Николай учат португальский - не удовлетворяет.
Допустим, верно второе утверждение. Тогда ни Петр, ни Николай не учат португальский, а Георгий учит китайский. Получится, что на Петра и Николая остается только один язык - арабский. Не подходит.
Допустим, верно третье утверждение.Тогда Николай учит португальский, Петр не учит португальский - тогда он учит арабский или китайский. Георгий не учит китайский, тогда он учит арабский. Тогда Петр учит китайский. Всё подходит.

ответ:
Петр - китайский, Николай - португальский, Георгий - арабский.