For2.

var

       a, b, i: Integer;

begin

       Read (a, b);

       for i := a to b do

               Write (i, ' ');

       WriteLn;

       Write ('Количество чисел из диапазона от ', a, ' до ', b, ' = ', b - a + 1);

end.

For3.

var

       a, b, i: Integer;

begin

       Read (a, b);

       for i := a - 1 downto b + 1 do

               Write (i, ' ');

       WriteLn;

       Write ('Количество чисел из диапазона от ', a - 1, ' до ', b + 1, ' = ', a - b - 1);

end.

For7.

var

       a, b, i: Integer;

begin

       Read (a, b);

       Write ('Сумма чисел в диапазоне от ', a, ' до ', b, ' = ', (a + b) * (b - a + 1) / 2)

end.

For8.

var

       a, b, i: Integer;

       k: Int64;

begin

       Read (a, b);

       k := 0;

       for i := a to b do

               k := k + a * b;

       Write ('Произведение всех чисел из диапазона от ', a, ' до ', b, ' = ', k);

end.