Работа с несколькими условиями в Pascal: примеры кода