Кто шарит в решить 2 задачи, отблагодарю в Только скиньте весь код, хочу разобрать. Задача 1. По строительным нормам дома, ниже шести этажей, не должны иметь лифт. Дома высотой до девяти этажей должны иметь один лифт, более высокие дома - два лифта. По известным количеством этажей определить, сколько лифтов необходимо установить в доме.
Задача 2. В аэропорту выполняется регистрация билетов на рейсы 107, 201, 32. Самолеты этих рейсов находятся на стоянках с номерами 3, 4, 5 соответственно. По известному номеру рейса определить, на какую стоянку необходимо отправить багаж пассажиров.

Пойдет?

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.