Пример решения задач на Pascal #1