Какое число будет выведено на экран в результате выполнения этого цикла?

PROGRAM ThreeSequences(INPUT, OUTPUT);
VAR
 Number: ARRAY[1 .. 3, 1 .. 10] OF INTEGER;
 ArithmeticAverage: ARRAY[1 .. 3] OF INTEGER;
 I, J: INTEGER;  
BEGIN {ThreeSequences}
 Randomize;
 {Генерирует 3 последовательности по 10 случайных чисел}
 FOR I := 1 TO 3
 DO
   FOR J := 1 TO 10
   DO
     Number[I][J] := Random(10) + 1;
 {Выводит последовательности и считает среднее арифметическое}
 FOR I := 1 TO 3
 DO
   BEGIN
     WRITE('Sequences: ');
     ArithmeticAverage[I] := 0;
     FOR J := 1 TO 10
     DO
       BEGIN
         WRITE(Number[I][J]:3);
         {Складывает все числа последовательности}
         ArithmeticAverage[I] := ArithmeticAverage[I] + Number[I][J];
       END;
     WRITELN;
     {Делит на количество чисел последовательности}
     ArithmeticAverage[I] := ArithmeticAverage[I] DIV J;
     WRITELN('ArithmeticAverage: ', ArithmeticAverage[I]);
   END;
END. {ThreeSequences}

1)128000  переводим в байты (128000  / 8 =  16000)

16000 переводим в килобайты (  16000 / 1024 =  15,625)

500килобайт делим на  15,625 получаем 32секунды.

2)512000  переводим в байты (512000  / 8 =  64000)

64000 переводим в килобайты (  64000 / 1024 =  62,5 )

62,5 умножаем на 46секунд, получаем  2875

3)128000  переводим в байты (128000  / 8 =  16000)

16000 переводим в килобайты (16000 / 1024 =  15,625)

1минуту 20сек переводим в секунды (60+20=80)

15,625 килобайт умножаем на 80секунд, получаем  1250килобайт