Ответ:

Объяснение:

1. как в задании

program AtoB;

var

a, b, i : integer;

begin

Write('Input a <= b : ');

ReadLn(a,b);

for i:= 1 to b-a-1 do WriteLn(a+i);

end.

2. с защитой "от дурака"

program AtoB;

var

a, b, i : integer;

begin

Write('Input a <= b : ');

ReadLn(a,b);

if a<=b then for i:= 1 to b-a-1 do WriteLn(a+i);

if a>b then for i:= 1 to a-b-1 do WriteLn(a-i);

end.