В общем, вот.
Решение реализовано с помощью рекурсивных функций, fac и sum, которые вызываются в зависимости от ситуации.
Поэтому ниже нарисованы три блок-схемы:
Первая - это само тело программы
Вторая - рекурсивная функция fac(для вычисления факториала)
Третья - рекурсивная функция sum(для суммы)
Как-то так :)
11001000001010 в двоичной системе
Program n1;
Uses CRT;
Var a,b,s,i: integer;
begin
writeln('Vvedite A i B');
readln(a,b);
If a>b then
for i:=b to a do
begin
writeln(i);
s:=s+i;
end
else
if b>a then
for i:=a to b do
begin
writeln(i);
s:=s+i;
end
else writeln('ravny');
writeln('Summa = ',s);
readln
end.