Инвертирование определенного бита в заданном числе - Turbo Pascal

Формулировка задачи:

Напишите программу, которая инвертирует определенный бит в заданном числе (биты при этом нумеруются с 0, начиная с младших).

Решение задачи: «Инвертирование определенного бита в заданном числе»

Листинг программы

var Num, n : integer;
begin
  WriteLn('Введите заданное число: ');
  ReadLn(Num);
  repeat
     WriteLn('Введите номер бита (от 0 до 15):');
     ReadLn(n);
  until (n>=0)  and (n<16);
  
  Num := Num xor (1 shl n);
 
  WriteLn('Полученное число: ', Num);
  ReadLn
end.

Объяснение кода листинга программы

В начале кода объявляются две переменные: Num и n, которые представляют собой целочисленные типы данных.
Затем выводится сообщение «Введите заданное число: », после чего считывается значение переменной Num с помощью функции ReadLn.
Далее идет цикл repeat-until, который продолжается до тех пор, пока не будут выполнены два условия: введенный номер бита (n) больше или равен нулю и меньше или равен 16.
Внутри цикла пользователю предлагается ввести номер бита от 0 до 15.
После того, как пользователь ввел номер бита, значение переменной n сохраняется в переменную Num с помощью операции умножения на 1 и сдвига влево на n позиций с помощью оператора shl.
После этого выводится сообщение «Полученное число: », и цикл repeat-until завершается.
В конце кода с помощью функции ReadLn считывается ввод пользователя.