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