Пойдет?
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.
а) 5120 байт = 40960 бит
б)1536 байт = 1,5 кбайт
в) 0,25 байт = 0,000244140625 кбайт
г)1572864 кбайт =1,5 гб
д) 524288 байт =4194304 бит
Объяснение: прикрепил файл, попробуй сам по решать)