чем команда read отличается от write в паскале! . буду .

Read вроде для чтения с консоли(буфера), а Write для вывода в консоль.

Read - сохраняет переменную в реестр, а write - выводит её на экран.

1) K =20 N=128 найти I

   N=2^i       128=2^7

   i=7 бит

   i=Ki=20*7=140 бит.

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

3) Считаем количество символов в сообщении:

3 * 25 * 60 = 4500;  

Сообщение занимает 1125 байт. Считаем, сколько байт занимает каждый символ:  

1125 / 4500 = 0.25;  

Т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. Байт состоит из 8 бит.  

8 / 4 = 2 (количество битов чтобы закодировать каждый символ)  

Двумя битами можно закодировать 4 символа, => в алфавите может быть до 4-х символов.

Объяснение:

Могу в предложить в данном случае использовать goto и метки. Ну, если вы имеете какой то признак неправильных данных, например, это отрицательные значения (предположим, что это неправильные данные) То на этапе, когда вы вводите эти значения, вы должны поставить условный оператор. Т.е.
if a<0 tnen
begin
Writeln('Вы ввели неверные данные');
goto 1
else
goto 2;
Метку 1 вы ставите в начало алгоритма, т.е. туда, откуда вы хотите начать повторное выполнение программы, а метку 2 поставить в продолжение алгоритма, т.е. на тот случай, если данные были введены верно