Напишите программу с функцией для перевода скорости указанной в м/с в км/ч

Точный ответ из "реальной жизни" звучит "это зависит от...". На самом деле, это зависит от дофига чего: от типа сети, используемых протоколов, загруженности каналов, коммутаторов и т. п.

(очень)грубая оценка для 100 мегабитного проводного ethernet примерно так: 100 МБит/с это примерно 10 МБайт/с (соотношение 10, хотя в байте бит по прежнему 8, это из-за всякие типовых накладных расходов, расхождения единиц измерения). 500 МБайт / 10 МБайт/с = 50 секунд.

Если чистая арифметика и пофиг на жизнь, то 500 Мбайт = (500 * 1024 * 1024) байт = (50 * 1024 * 1024 * 8) бит

Все это поделить на 100 000 000 бит/с и получится время в секундах. То есть 41,94304 секунд

Const
n=5;m=6;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of longint;
k,i,j:integer;
p:longint;
begin
   for i:=1 to n do
      begin
         writeln;    
            for j:=1 to m do
                 begin
                    a[i,j]:=random(20)-10;
                     write(a[i,j]:4);
                 end;
      end;
writeln;

for j:=1 to m do
  begin
p:=1;
     for i:=1 to n do
          if (a[i,j]mod 2=0)and(a[i,j]>0) then
             p:=p*a[i,j];
if p<>1 then
  begin
     k:=k+1;
     b[k]:=p;
  end;
end;
for i:=1 to k do
   write(b[i]:8);
end.