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

var
 i,a,b:integer;
begin
readln(a,b);
for i:=a to b do
  write(i,'  ');
writeln;
writeln('n=',b-a+1)
end.

var
 i,a,b:integer;
begin
readln(a,b);
i:=a;
while i<=b do
  begin
    write(i,'  ');
    Inc(i)
  end;
writeln;
writeln('n=',b-a+1)
end.

var
 i,a,b:integer;
begin
readln(a,b);
i:=a;
repeat
  write(i,'  ');
  Inc(i)
until i>b;
writeln;
writeln('N=',b-a+1)

end.