Алфавит при которого записано сообщение состоит из строчных и прописных букв abc, из них составляют 20 паролей. сколько байт займёт база данных для 500 человек?

Var  a: array [1..30,1..30] of integer;   i,j,n,m,b: integer;   find: boolean; begin   randomize;   writeln('введите  размерность  матрицы ');   readln(n,m);   writeln('введите  число b ');   readln(b);     find: =false;   for i: =1 to n do   for j: =1 to m do   begin       a[i,j]: =-110+random(200);       if a[i,j]=b then           begin                        writeln('элемент  в массиве ',a[i,j]: 5,  '  =',b: 5); find: =true;               exit; {остальные  эл-ты  не  рассм.}       end   end; if find=false then writeln('элемент  не  найден'); end. {2  способ} var a: array [1..30,1..30] of integer;   i,j,n,m,b: integer;   find: boolean; begin   randomize;   writeln('введите  размерность  матрицы ');   readln(n,m);   writeln('введите  число b ');   readln(b);     find: =false;   for i: =1 to n do   begin   for j: =1 to m do       begin       a[i,j]: =-110+random(200);   write (a[i,j]: 7);     end;     writeln;     end;   for i: =1 to n do     for j: =1 to m do     if a[i,j]=b then              begin                     writeln('элемент  в массиве ',a[i,j]: 5,  '  =',b: 5); find: =true;               exit; {остальные  эл-ты  не  рассм.}       end; if find=false then writeln('элемент  не  найден'); end.