Изменение поведенческих установок в информационно коммуникационной среде

Uses Crt;
Label
   BbIXOD, BBODN;
Var
   A:array[1..19,1..19] of shortint;
   i,j,N,t:integer;
Begin
Randomize;
BBODN:
Write('N = ');ReadLn(N);
ClrScr;
if (N <= 0)or(N > 19) then GOTO BBODN;
t:= 700 div N;
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn;
    End;
Delay(300);
For i:= N downto 1 do
    Begin
    For j:= N downto 1 do
        Begin
        if (j < N) then
           Begin
           GotoXY(j*4+1,i);
           TextBackground(0);
           Write(A[i,j+1]:3,' ');
           GotoXY(1,N+1);
           End;
        TextBackground(2);
        GotoXY(j*4-3,i);
        Write(A[i,j]:3,' ');
        Delay(t);
        if A[i,j] mod 2 = 0 then
           Begin
           Delay(700);
           if i <> j then
              Begin
              TextBackground(12);
              GotoXY(j*4-3,i);
              Write(A[i,j]:3,' ');
              Delay(700);
              TextBackground(14);
              GotoXY(i*4-3,i);
              Write(A[i,i]:3,' ');
              Delay(700);
              
              t:=A[i,j];
              A[i,j]:=A[i,i];
              A[i,i]:=t;
              
              TextBackground(14);
              GotoXY(j*4-3,i);
              Write(A[i,j]:3,' ');
              TextBackground(12);
              GotoXY(i*4-3,i);
              Write(A[i,i]:3,' ');
              Delay(700);
              
              TextBackground(0);
              GotoXY(j*4-3,i);
              Write(A[i,j]:3,' ');
              TextBackground(2);
              GotoXY(i*4-3,i);
              Write(A[i,i]:3,' ');
              End;
           t:=-1;
           GOTO BbIXOD;
           End
        End;
    GotoXY(1,i);
    TextBackground(0);
    Write(A[i,j]:3,' ')
    End;
BbIXOD:
TextBackground(0);
GotoXY(1,N+1);
if t >= 0 then WriteLn('Чётных элементов не обнаружено');
WriteLn('Для повторного ввода N нажмите 0');
WriteLn('Для выхода - любую другую клавишу');
if ReadKey = '0' then
   Begin
   ClrScr;
   GOTO BBODN;
   End
End.

восьмеричной системе счисления есть цифры: 0, 1, 2, 3, 4, 5, 6, 7.
Сложение цифр можно рассмотреть на двоичном представлении цифр. Так как 8 = 2^3, то двоичное представление восьмиричных чисел просто:
Код:

N8 0 1 2 3 4 5 6 7
N2 000 001 010 011 100 101 110 111

Ваш пример:
Сумма младших разрядов: 48+58=118
Старшая единица переходит в сумму средних цифр (перенос).
Сумма старших разрядов:
18 + 18 = 28
Т.е. При сложении средних чисел должно получиться:
X8 + X8 + 18= 118,
Cтаршая единица результата переходит в сумму старших цифр исходного числа: 18 + 18 + 18 = 38.
Т.о. делаем заключение, что сумма средних цифр должна дать в результате 108. Такой результат можно получить:
48 + 48 = 108.
ответ: Х = 48.