Закодируйте слова "бит, информация, килобайт сообщение" в виде ребусов или шарад

Нарисуй биту и поставь слева перевернутую запятую. 

Var  i, n, a, b,n1: integer; begin  write('введите число ');   readln(n);   n1 : = n;   a : = n mod 10;   case a of    2, 3: n : = n * ((n div 10) mod 10);     7, 8, 9:       begin        for i : = 1 to length(inttostr(n)) do          begin          b : = b + (n mod 10); n : = n div 10; end; n : = n1 - b; end;     1, 4, 5, 6, 0: n : = n div 10;   end;   write(n); end.

Программа, которая использует два массива var  c, a: array[1..20] of integer;   i: integer; begin  write('первый массив ');   for i : = 1 to 20 do    begin    c[i] : = i * (-5);     write(c[i], ' ');   end;   writeln;   write('преобразованный массив ');   for i : = 1 to 20 do    begin    a[i] : = c[20 - i + 1];     write(a[i], ' ');   end;   end.или   программа не использующая два массива, а просто переворачивающая первыйvar  c: array[1..20] of integer;   i: integer; begin  write('первый массив ');   for i : = 1 to 20 do    begin    c[i] : = i * (-5);     write(c[i], ' ');   end;   writeln;   write('преобразованный массив ');   for i : = 20 downto 1  do    write(c[i], ' ');   end.обе программы работают!