Сообщение записано с 64 символьного алфавита и занимает 3 страницы, на каждой странице 240 символов. найти количество информации в сообщении

Если вводить с клавиатуры, то для чего использовать random? в программе ввод с клавиатуры отключен. const n=7; var t: array[1..n] of integer; sr,srp,sro: real; i,kp,ko: integer; begin randomize; for i: =1 to n do   begin   // readln(t[i]); // ввод с клавиатуры   t[i]: =random(7)-3;   writeln(i,' - ',t[i]: 2);   end; sr: =0; srp: =0; sro: =0; kp: =0; ko: =0; for i: =1 to n do   begin   sr: =sr+t[i];   if t[i]> 0 then begin srp: =srp+t[i]; kp: =kp+1; end;   if t[i]< 0 then begin sro: =sro+t[i]; ko: =ko+1; end;   end; sr: =sr/n; srp: =srp/kp; sro: =sro/ko; writeln('средняя температура недели = ',sr: 5: 2); writeln('средняя положительная = ',srp: 5: 2); writeln('средняя отрицательная = ',sro: 5: 2); end. пример: 1 - -3 2 -   1 3 - -2 4 -   2 5 -   2 6 - -3 7 -   0 средняя температура недели = -0.43 средняя положительная =   1.67 средняя отрицательная = -2.67