Внесите в программу изменения так,чтобы числа выводились в обратном порядке -от большего к 2.Пример 19.4.
Строку for var.. надо поменять на for var n:=k to 1 do