Создание подпрограмм в Free Pascal: фотопримеры кода