С клавиатуры вводятся целые числа a>b .выведите убывающую последовательность чисел по одному числу в строке.​

var  a, b, i, n: integer; begin  Writeln('Введите два числа: ');  Read(a, b);  n := a - b;  for i := 1 to n do  begin    a -= 1;    Writeln(a);  end; end.