Назовите три сходства и три отличия текстового процессора и видеоредактора

Пойдет?

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.