даны целые числа а и в (а<в) написать программу вычисления всех целых чисел от а до в включительно

буду признателен

а не легче просто поменять а и в местами ?

а какая разница?

избежание одной из важных ошибок програмирования - копипаст

а если бы цикл был не в одну строчку а в 10 строк, ты тоже бы его только скопировал и поменял буквы местами?

var a,b,c:integer;beginwriteln('введите число a');readln(a);writeln('введите число b');readln(b);for a:=a to b do beginwriteln('число в промежутке ==>',a);end;if a>b then for b:=b to a do beginwriteln('число в промежутке ==>',b);end;end.

var    a, b, i: integer;begin    writeln('введите число a');    readln(a);    writeln('введите число b');    readln(b);        if (a > b) then begin        i := b;        b := a;        a := i;    end;        for i := a to b do         writeln('число в промежутке ==>', i);    end.