Запиши на Паскале логическое выражение:

одно и только одно из чисел a, b и c - положительное

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

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

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

var

 a, b, c: real;

begin

 Read(a, b, c);

 Write((ord(a > 0) + ord(b > 0) + ord(c > 0)) = 1)

end.