Программа на языке Паскаль для определения наличия хотя бы одной пары противоположных чисел из тройки чисел a, b и c может быть следующей:

pascal

program OppositePair;

var

  a, b, c: integer;

begin

  writeln('Введите три числа:');

  readln(a, b, c);



  if (a = -b) or (b = -c) or (c = -a) then

    writeln('Среди чисел есть хотя бы одна пара противоположных чисел')

  else

    writeln('Среди чисел нет пар противоположных чисел');



  readln;

end.

В этой программе используется оператор `if` для проверки условия. Внутри условия мы проверяем, равны ли числа a и b, b и c или c и a противоположными, используя оператор сравнения `=` и оператор отрицания `-`. Если хотя бы одно из условий истинно, то ветка `then` выполняется, и выводится сообщение обнаружении пары противоположных чисел. В противном случае, ветка `else` выполняется, и выводится сообщение о том, что пары противоположных чисел нет. Обратите внимание, что в этой программе ожидается ввод трех чисел с клавиатуры с помощью функции `readln`. Вы можете ввести значения для переменных `a`, `b` и `c` в одной строке, разделяя их пробелами. Например, если вам нужно проверить пары чисел `-4` и `4`, вы можете ввести: `-4 4 -8`. После ввода чисел программа проверит условие и выведет результат.