Программа 1

Почти запиленная, надо доработать.