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

var
  a, b, i, cnt: integer;
begin
  write('Vvedite A: '); readln(a);
  write('Vvedite B: '); readln(b);
  cnt := 0;
  for i := a to b do
  begin
    writeln(i);
    cnt := cnt + 1;
  end;
  writeln;
  writeln('kol-vo: ', cnt);
  readln;
end.