с задачкой по информатике: В базе данных хранятся записи, содержащие информацию о датах. Каждая запись содержит три поля: год (число от 1 до 2100), номер месяца (число от 1 до 12) и номер дня в месяце (число от 1 до 31). Каждый символ кодируется одинаковым и минимально возможным количеством бит, а каждая дата – одинаковым и минимально возможным целым количеством байт. Сколько байт информации содержит файл, в котором записаны все даты с 01.01.2004 по 31.03.2004?

1)cсортировка методом пузырька  const n=10; var    a: array[1..n] of integer;       i, j, k: integer;   begin      randomize;         write ('исходный массив: ');       for i : = 1 to n do begin          a[i] : = random(256);           write (a[i]: 4);     end;       writeln; writeln;           for i : = 1 to n-1 do          for j : = 1 to n-i do              if a[j] < a[j+1] then begin                  k : = a[j];                   a[j] : = a[j+1];                   a[j+1] : = k              end;         write ('массив по возрастанию: ');       for i : = 1 to n do          write(а[i]: 4);         writeln;   readln; end.2) const    n = 10;   var    b: array[1..n] of integer;       i, j, x: integer;   begin      randomize;         write ('исходный массив: ');       for i : = 1 to n do begin          b[i] : = random(256);           write (b[i]: 4);       end;       writeln;   writeln;     x: =b[2]; b[2]: =b[n-1]; b[n-1]: =x;         write ('массив   ');       for i : = 1 to n do          write (b[i]: 4);         writeln;   readln end.3)const    n = 10;   var    c: array[1..n] of integer;       i, j, x: integer;   begin      randomize;       write ('исходный массив: ');       for i : = 1 to n do  begin          c[i] : = random(256);           write (c[i]: 4);       end;       writeln; writeln;     writeln;   for i: =5 to n-1 doc[i]: =c[i+1];     write ('массив   ');       for i : = 1 to n-1 do          write (c[i]: 4);         writeln;   readln; end.