При регистрации в компьютерной системе для каждого пользователя формируется индивидуальный идентификатор, состоящий из 14 символов. для построения идентификатора используются только латинские буквы (26 заглавных и 26 строчных букв). в базе данных для каждого идентификатора пользователя отведено одинаковое минимально возможное целое число байт. используется посимвольное кодирование идентификаторов, все символы кодируют одинаковым минимально возможным количеством бит. кроме идентификатора, для каждого пользователя в системе хранятся дополнительные сведения.
для хранения информации о 25 пользователях выделено 750 байт.
сколько байт выделено под дополнительную информацию одного пользователя?
ответ 19 байт? проверяю правильность моего решения

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i] mod 2 = 0 then s: =s+a[i];

  writeln('сумма четных элементов =', s);

  readln

end.

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

в одном килобайте 1024 байта а значит 2,5 кбайта=2,5*1024=2560 байтов,в одном байте 8 битов а значит 2560 байтов=2560*8=20480 битов.чтобы найти за сколько времени передастся данный файл надо весь его размер разделить на скорость с которой он передается: 20480/2560=8 минут.

var    a,b,c,d,x1,x2: real;     beginreadln(a,b,c); d: =b*b-4*a*c; if d< 0  then writeln('только комплексные корни')else

begin

d: =sqrt(d);

x1: =(-b+d)/(2*a); x2: =(-b-d)/(2*a); writeln('x1=',x1); writeln('x2=',x2); end;     end.