Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их возрастания, а также количество N этих чисел.(while в паскале)

Предыдущий
вопрос Следующий
вопрос

program PrintNumbersBetweenAandB;
var
A, B, N, i: integer;
begin
write('Введите число A: ');
readln(A);
write('Введите число B (B должно быть больше A): ');
readln(B);

N := 0;
i := A;

while i <= B do
begin
writeln(i);
N := N + 1;
i := i + 1;
end;

writeln('Количество чисел между A и B: ', N);
end.