дан интервал чисел{10,50}. Найти произведение чисел из этого интервала кратных 10.
2) Найти все положительные числа большие 10, меньшие 70, кратные 4 и заканчивающиеся на 6.
3)Дан интервал чисел от a до b. Распечатать все отрицательные числа
ПРОГРАММА ПАСКАЛЬ

Var a: array of integer; // Объявление массива целых чисел
  i, n: integer; // объявление целочисленных переменных
begin
  // Запросим с клавиатуры размер массива
  // и запишем его в переменную n
  write('введите n:'); 
  readln(n);
  
  // Теперь выделим память под n элементов массива
  SetLength(a, n);
  
  // теперь запросим с клавиатуры n чисел для массива
  for i := 0 to n-1 do begin
    write('a[', i, ']=');
    readln(a[i]);
  end;
  
  // теперь в цикле уменьшим каждый элемент на единицу
  for i := 0 to n-1 do 
    a[i] := a[i] - 1;
  
  // распечатаем массив
  for i := 0 to n-1 do 
    write(a[i], ' ');
end.

11.
375 байт = 375*8 бит = 3000 бит всего, значит на каждый символ приходится:
3000 / 500 бит = 6 бит
6ю битами мы может закодировать  различных символов.
ответ. не более чем 64

12. Определим объем информации занимаемый каждым символом, он равен:
бит
Теперь умножим число символов на число байт на символ
ответ 40*60*3*6 бит = 43200 бит

13. Число символов в сообщении равно:

Значит на каждый символ приходится:
9000 / 14400 байт = 9000 * 8 / 14400 бит = 5 бит
это информационный вес каждого символа.
с бит можно закодировать  различных символов.

ответ. 5 бит, 32 символа