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

Var
  n,k:integer;
begin
  Write('Укажите число и номер инвертируемого бита: ');
  Read(n,k);
  Writeln('Результат: ',n xor (1 shl k))
end.

Тестовое решение:
Укажите число и номер инвертируемого бита: 573 4
Результат: 557