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

var

  a, b, c: real;

begin

  read(a, b, c);

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

end.

program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа:   '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.

состояние тропосферы в данной местности и в данное время называеться погодой