Pascal

Решение задачи на pascal раздела begin из задачника Programming Taskbook