Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между…

var A, B, N, i: integer; begin N: =0; //Обнуляем счетчик writeln ('Введите числа A и B'); readln (A, B); //Вводим А и B if A < B then {Если А < B, то печатаем числа начиная с B и заканчивая A, иначе наоборот} for i: =B downto A do begin write (i, '); //Печатаем i inc (N); //Увеличиваем счетчик на 1 end else for i: =A downto B do begin write (i, '); inc (N); end; writeln; writeln ('Количество N этих чисел равно: ', N); //Выводим Nend. Если все правильно, отметь решение как лучшее)