Сообщение, записанное буквами 64-символьного алфавита, содержит 120 символов. какое количество информации оно несёт?

64 это 2 в шестой степени. т.е. 6 бит информации могут содержать 64 варианта. 120*6=720 бит

  program proga;     var   a: text;       i,j,n,m : byte;         d: string;         sim: char;   begin              write('введите имя текстового файла   ');   {например: "test" он создастся там где находится сама программа }                read(d);                                             assign(a,d);                   rewrite(a);                       write('введите количество строк: n= ');                           readln(n);                       write('введите количество символов в строке: m= ');                           readln(m);                                         for i: =1 to n do                      begin                            sim: =chr(ord('1')+i-1);                             for j: =1 to m do                                write(a,sim);                                 writeln(a);                       end;                             close(a); end.