Решение задачи "Координатные четверти", Pascal

Нажмите на ссылку http://ideone.com/Xdt96h, чтобы открыть ресурс.