Решить прикреплённую задачу через Pascal, решить методом подфункции и процедурами, чем проще - тем лучше!\