Пойдет?
1)
// этажей<6 лифта нет, до 9 этажей 1 лифт, более 9 2 лифта
//По известным количеством этажей определить, сколько лифтов необходимо установить в доме.
program v1;
var n,m:integer;
begin
writeln('Введите количество этажей'); readln(n);
m:=n;
if m<6 then writeln('Лифта нет');
if (m>=6) and (m<=9) then writeln('1 лифт');
if m>=10 then writeln('2 лифта');
end.
2)
//рейсы 107, 201, 32. Самолеты этих рейсов находятся на стоянках с номерами 3, 4, 5 соответственно.
//По известному номеру рейса определить, на какую стоянку необходимо отправить багаж пассажиров.
program v1;
var n,m:integer;
begin
writeln('Введите номер рейса'); readln(n);
m:=n;
if m=107 then writeln('Стоянка с номером 3');
if m=201 then writeln('Стоянка с номером 4');
if m=32 then writeln('Стоянка с номером 5');
if (m<>107) and (m<>201) and (m<>32) then writeln('Таких рейсов нет');
end.

Число 113: для него прямой, обратный и дополнительный коды совпадают, так как оно положительное.
113(10)=01110001(2)
Число (-36):
Прямой код: 36(10)=00100100(2)
Обратный код (код, в котором меняем 0 на 1, а 1 на 0 в прямом коде):
-36(10) - обратный код 11011011(2)
Дополнительный код (к младшему разряду обратного кода прибавляем 1):
-36(10) - дополнительный код 11011100(2) - это число -36 в доп.коде
Сложим 113+(-36) в двоичных кодах:
01110001(2)+11011100(2)=1 0100 1101(2). Старшую единицу отбрасываем, получаем:
01001101(2)=77(10)
Проверим: 113-36=77 в десятичной с/с