Суммы, творения и количества чисел от А до В, где А

var a,b:integer;

   s,p,k:integer; //s сумма, p творенье, k кол-во

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

Begin

 while (a = b) or (a gt; b) do Begin

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

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

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

 End;

 p := 1; //Если p = 0 --gt; все следующие творенья = 0

 for var i := a to b do Begin

   inc(k);

   p := p * i;

   s := s + i;

   m := m + i;

   if(i lt;gt; b) then m := m + ',';

 End;

 writeln;

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

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

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

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

End.

gcc 7.3.0 / C++

include lt;iostreamgt;

long long int sum(const int amp;A, const int amp;B)

   if(A gt; B)

       return 0;

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

long long int multiply(const int amp;A, const int amp;B)

   if(A gt; B)

       return 1;

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

int difference(const int amp;A, const int amp;B)

   return B - A - 1;

int main()

   int A, B;

   std::cin gt;gt; A gt;gt; B;

   std::cout lt;lt; sum(A, B) lt;lt; std::endl

             lt;lt; multiply(A, B) lt;lt; std::endl

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

   return 0;