https://wikidelphi.com/تابع-pred-پاسکال/