Как написать код в программе PascalABC.NET, чтобы он сложил число, которое уменьшается на определённое значение несколько раз?