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

Спасибо

var a,b,n:integer;beginread(a,b);write(a);repeata:=a+1;write(a);n:=n+1;until a=b;writeln;writeln(n);end.