Даны два целых числа 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