num = int(input('Кол-во человек: '))
number = int(input('Какое число в считалке? '))
print('Значит, выбывает каждый', number, 'человек.')
mens_list = list(range(1, num + 1))
out = 0
for _ in range(num - 1):
print('Текущий круг людей', mens_list)
start_count = out % len(mens_list)
out = (start_count + number - 1) % len(mens_list)
print('Начало счёта с номера', mens_list[start_count])
print('Выбывает человек под номером', mens_list[out])
mens_list.remove(mens_list[out])
print()
print('Остался человек под номером', mens_list)
Возможно имелось ввиду 2-х переменных, с использованием третей(если это не так, поправьте в комментариях):
PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018
begin
var (a, b) := ReadInteger2('a,b->');
var c := b;
b := a; a := c;
Println($'a={a}{NewLine}b={b}');
end.