var
  A, B, count, i : integer;
begin
  write('Введите число A: ');
  readln(A);
  write('Введите число B: ');
  readln(B);
  for i := A to B do
    write(i, ' ');
  writeln;
  writeln('Всего чисел: ', B - A + 1);
end.