Несложная, но интересная логическая задачка на Pascal'е

[programming]

Находится в этой записи.
P.S. простите за форматирование, а точнее его отсутствие