Решить задачу по информатике в паскаль abc с командой "while"1.Вывести все числа от a до b, но заранее не известно, а>b или a

var
  a, b: integer;

begin
  readln(a, b);
  if (a > b) then swap(a, b);
  while (b - a >= 0) do
  begin
    Write(a, ' ');
    inc(a);
  end;
end.