Запиши на Паскале логическое выражение:одно и только одно из чисел a,

что означает ord? можно без него?

ord(True) = 1, ord(False) = 0, можно и без ord, но много писать, что-то вроде Write((a > 0) and (b<=0) and(c<=0) or...) и так дальше

Может Вы тогда напишите список из слов синтаксиса, которые можно использовать, а какие нельзя? Как человеку комфортно писать программку, так он и написал. Если бы Вы попросили написать программу одним маршрутом, он бы написал тем. А так получайте ответ, который удобен творцу.