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

спасибо)))

var  a,b,k: integer;  i: byte;begin  write ('Введите число A: ');  readln (a);  write ('Введите число B: ');  readln (b);  k:=0;  for i:=a to b do begin    write (a:4);    k:=k+1;    a:=a+1;  end;   writeln;  writeln ('Количество чисел = ',k);end.---------------------------------------Введите число A: 5Введите число B: 10   5   6   7   8   9  10Количество чисел = 6