Скорость передачи данных через adsl-соединение равна 512 кбит/с. передача файла через данное соединение заняла 4 минуты

512 Кбит/с = 512*1024 = 524288 бит/с
4 мин = 240 сек.

Файл весит = 240*524288 бит = 125829120 бит
125829120 бит = 125829120 / 1024 / 1024 / 8 = 15 Мегабайт

1) В КОИ-8 каждый символ кодируется 1 байтом.
32*40*48 байт = 32*4*5*8*6 = 32*32*5*6 = 30*1024 байт = 30 Кбайт.
Информационный объем тоже равен 30 Кбайт = 30*8 = 240 Кбит.
2) В Unicode каждый символ кодируется 2 байтами.
Во фразе 60 знаков, включая пробелы, точки и запятые.
Объем этого сообщения 60*2 = 120 байт.
3) В Unicode каждый символ кодируется 2 байтами.
Информационный объем
16*30*32*2 = 32*30*32 = 30*1024 = 30 Кбайт = 30*8 = 240 Кбит.
Размер статьи 30 Кбайт.
4) Размер статьи 64*52*52 = 64*4*13*4*13 = 256*169 знаков.
Если его информационный объем равен 169 Кбайт, то каждый 
1 Кбайт = 1024 байт = 256 знаков.
1 знак = 1024/256 = 4 байта = 4*8 = 32 бита.
5) Информационный объем равен 128 Кбайт. 1 знак в Unicode = 2 байта.
В книге 128*1024/2 = 64*1024 = 2^6*2^10 = 2^16 = 65536 знаков.
6) 2048 символов = 1/512 Мбайта = 1024/512 = 2 Кбайта = 2048 байт.
Каждый символ кодируется 1 байтом = 8 бит.
В алфавите 2^8 = 256 символов.
7) В 64-символьном алфавите каждый символ кодируется 6 битами, потому что 64 = 2^6.
20 символов = 20*6 = 120 бит = 120/8 = 15 байт.

Я так поняла вопрос в том, что надо объяснить работу программы. ответ будет выводиться в зависимости от введеных значений переменных. Переменная M типа boolean, т.е. это логическая переменная; которой может быть присвоенно только 2 значения, либо true, либо false, т.е. либо логическое вырожение истинное, либо ложное. Если в конце программы добавить writeln(M), тогда выведиться либо слово true, либо false. Не знаю, случайно ли, но в программе есть опечатки и в таком виде она работать не будет.
1. После program bd; ставиться точка с запятой, а не просто запятая.
2. Не car, a var
3. После объявления переменных, перед указанием их типа надо ставить двоеточие (:), а не точку с запятой (;) 4. После M необходимо поставить двоеточие (M:boolean;)
5. В операторе ввода read, нельзя ставить апостровы. Если вы хотите ввести значения, неоходимо просто через запятую их написать readln(a,b);
Ну и как я уже сказала, если вы хотите вывести результат выполнения программы, перед end. Вставьте оператор writeln(M);
Вроде всё