Ответ:

var n1,n2: integer;

begin

 writeln('Введите первое и второе число: ');

 readln(n1,n2);

 n1:=n1-1;

 while n1<n2 do begin

   Inc(n1);

   write(n1,' ')  

   end

end.