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