Какова скорость соединения (в бит/с),если файл объёмом 500кбайт был передан за 8 сек??

Constn=10;m=10;
var
a:array[1..n,1..m]of integer;
i,j,s:integer;
begin     
     for i:=1 to n do       
        begin             
            writeln;  s:=0;                     
                for j:=1 to m do                         
                   begin                               
                      a[i,j]:=random(50);                               
                      write(a[i,j]:4);                             
                         if i mod 2<>0 then                                 
                             s:=s+a[i,j];                         
                   end;                     
                          if i mod 2<>0 then                         
                               writeln(s:6);       
           end;
     end.

var

   n, i, aon_i, k: integer;

   f: boolean;

function AmountOfNumbers(n: integer): integer;

var

   s: integer;

begin

   s := 0;

   while n > 0 do

   begin

       s := s + n mod 10;

       n := n div 10;

   end;

   AmountOfNumbers := s;

end;

begin

   readln(n);

   

   for i := 0 to n do

   begin

       f := true;

       aon_i := AmountOfNumbers(i);

       

       for k := 2 to 9 do

           f := f and (aon_i = AmountOfNumbers(k * i));

       if f then writeln(i);

   end;

end.

Объяснение: