Укажите 3 основных характеристик справочно - правовых систем: 1. Инструментальные средства
2 аналитические возможности
3 достоверность документов
4 полнота базы данных ​

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var (a,b):=ReadInteger2('Введите a,b:');
  if a.IsEven then a-=1;
  Range(a,b,-2).Println
end.

Пример
Введите a,b: 18 4
17 15 13 11 9 7 5

№2

begin
  var (a,b):=ReadInteger2('Введите a,b:');
  Range(b,a).Aggregate(BigInteger(1),(i,j)->i*j).Println
end.

Пример
Введите a,b: 50 7
42241796113490802838350844675089956728302279956889600000000000

№3

begin
  var n:=ReadInteger('n=');
  for var i:=1 to n do
    (1.To(i)).Println('')
end.

Пример
n= 7
1
12
123
1234
12345
123456
1234567

Const
  m = 5;
  n = 8;

var
  x: array[1..m, 1..n] of integer;
  i, j, a, b, k: integer;

begin
  write('Введите числа a,b: ');
  readln(a, b);
  Randomize;
  writeln(#13#10, 'Исходный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      x[i, j] := Random(100) - 50;
      write(x[i, j]:5)
    end;
    writeln
  end;
  writeln('Количество элементов матрицы, кратных ', a);
  for j := 1 to n do
  begin
    k := 0;
    for i := 1 to m do
      if x[i, j] mod a = 0 then k := k + 1;
    write(k:5)
  end;
  writeln;
  writeln('Количество элементов матрицы, кратных ', b);
  for j := 1 to n do
  begin
    k := 0;
    for i := 1 to m do
      if x[i, j] mod b = 0 then k := k + 1;
    write(k:5)
  end;
  writeln
end.

Тестовое решение:

Введите числа a,b: 4 7

Исходный массив
  -16    3   26    4   46   -6  -31   21
  -35  -34   46   42   15  -26   -9    4
  -19  -47    8  -48   13   14   42  -46
   41  -10   13   45  -20   15   13  -44
   18  -11   23  -30   44  -36   -8  -42
Количество элементов матрицы, кратных 4
    1    0    1    2    2    1    1    2
Количество элементов матрицы, кратных 7
    1    0    0    1    0    1    1    2