Создайте приложение выводящее на экран, первые 15 чётных чисел. На Delphi

V1 - объем первого файла.
V2 - объем второго файла.
v - скорость передачи.
t1 - время передачи первого файла.
t2 - время передачи второго файла.

Дано:
V1 = 20 кбайт.
t1 = 80 с.
V2 = 1536 байт.

Найти: t2.

Найдем скорость передачи первого файла, переведя кбайты в биты:

v = V1/t1 = (20 * 2^13)/80 = 2^13 / 4 = 2^13 / 2^2 = 2^11 бит/с.

Так как в условии задачи написано, что второй файл передается через это же соединение, следовательно скорость передачи у обоих файлов будет одна и та же.

Найдем время передачи второго файла, переведя байты в биты:

t = V2/v = (1536 * 2^3) / 2^11 = 1536 / 2^8 = 1536 / 256 = 6 с.

ответ: 6 секунд.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Суммы по строкам');
  a.Rows.Select(row->row.Sum).Println;
  Writeln('Произведения по столбцам');
  a.Cols.Select(col->col.Aggregate(BigInteger(1),(p,q)->p*q)).Println
end.

Пример
Количество строк и столбцов в массиве: 5 4
*** Исходный массив ***
 -99 -70  -9 -24
  87 -34  66  -5
  92 -65  -9 -51
  61  99  79  17
 -40  22  75  88

Суммы по строкам
-202 114 -33 256 145
Произведения по столбцам
1933446240 -336936600 31675050 -9155520