Решение представлено во вложениях.
Язык: Pascal | Python
Примечание: в программе на Python индексация списка начинается с 0.