Решение задачи "Электронные часы-2", Pascal

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