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

Question

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

Answer 1

Var
a,b,n,i: integer;
begin
readln(a,b);
for i:=a to b do begin
write(i,' ');
inc(n);
end;
writeln();
write('Количество =',n);
end.