Помогите перевести код из С# в Pascal

Терр Онтал Мудрец (11315) Иван Скворцов, код очень простой, так как я сделал упор на краткость и выразительность, надеюсь вы оцените, вот код: solve();