Определить мощность алфавита, если сообщение, содержащее 40 символов, занимает 30 байт?

Задание лишено смысла, т. к. символ никогда не кодируется частью байта. Но допустим, что под байтом тут просто понимается массив из 8 битов. Тогда 2^(30 * 8 / 40) = 64.

1)
Program n1;
const n=10;
var a: array [1..n] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
for i:=1 to n do a[i]:=random(100)+1;
for i:=1 to n do sum:=sum+a[i];
writeln('сумма: ',sum);
end.
2)
Program n2;
const n=10;
var a: array [1..n] of integer;
i,sum,j,temp: integer;
begin
randomize;
writeln('исходный массив');
for i:=1 to n do
begin
a[i]:=random(100)+1;
write(a[i],' ');
end;
writeln;
writeln('полученный массив: ');
for i:=1 to n do
for j:=i to n do
if a[j]<a[i] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp
end;
for i:=1 to n do write(a[i],' ');
end.

Нужно определить, сколько времени будет передаваться файл объемом 5 Мбайт по каналу со скоростью передачи данные 215 бит/с; к этому времени нужно добавить задержку файла у Толи (пока он не получит 512 Кбайт данных по каналу со скоростью 219 бит/с). 

Периведём объём информации в Мб в биты: Q = 5 Мб = 5 * 220 байт = 5 * 223 бит. 

Время задержки:  = 512 кб / 219 бит/с = 2(9 + 10 + 3) - 19 c = 23 c. 

Время скчивания данных Мишей:  = 5 * 223 бит / 215 бит/с = 5 * 28 c. 

Полное время:  = 5 * 28 c + 23 c = (256 * 5 + 8) c = 1288 c. 

ответ: 1288.