../../Task/Ternary-logic/Free-Pascal