gcc 7.3.0 / C++

#include <iostream>

long long int sum(const int &A, const int &B)

{

   if(A > B)

       return 0;

   return sum(A+1, B) + A;

}

long long int multiply(const int &A, const int &B)

{

   if(A > B)

       return 1;

   return multiply(A+1, B) * A;

}

int difference(const int &A, const int &B)

{

   return B - A - 1;

}

int main()

{

   int A, B;

   std::cin >> A >> B;

   std::cout << sum(A, B) << std::endl

             << multiply(A, B) << std::endl

             << difference(A, B) << std::endl;

   return 0;

}

var a,b:integer;

   s,p,k:integer; //s сумма, p произведение, k кол-во

   m:string; //Интервал

Begin

 while (a = b) or (a > b) do Begin

   writeln('Введите числа A,B (a < b; a != b)');

   write('A = '); readln(a);

   write('B = '); readln(b);

 End;

 p := 1; //Если p = 0 --> все последующие произведения = 0

 for var i := a to b do Begin

   inc(k);

   p := p * i;

   s := s + i;

   m := m + i;

   if(i <> b) then m := m + ',';

 End;

 writeln;

 writeln('Интервал = [',m,']');

 writeln('Сумма чисел (a..b) = ', s);

 writeln('Произведение чисел (a..b) = ', p);

 write('Кол-во чисел (a..b) = ', k);

End.