Ответ:

• 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.