Даны три числа. Подсчитать среди этих чисел количество чисел больших введенного числа К. 2. Подсчитать количество отрицательных среди чисел а, b, с.
3. Рис расфасован в два пакета. Масса первого — т кг, второго — п кг. Составить программу, определяющую: а) какой пакет тяжелее — первый или второй; б) массу более тяжелого пакета.

Люблю нерешаемые задачи, в них исключения не надо проверять:)

uses
  AirplaneAPI;

var
  AP: Airplane;
  sBuf: string;

begin
  AP := new Airplane(Types.Boeing747, 'N752PA');
  writeln('Пустая строка - конец посадки пассажиров');
  repeat
    writeln('Номер билета: ');
    readln(sBuf);
    if not Ticket.Verify(sBuf) then
      writeln('| Неверный номер билета. Код ', Ticket.LastCode, ' |')
    else
      AP.Pass.Add(Ticket.getInfo(sBuf));
    if ((sBuf.Length = 0) or (AP.Loaded)) then
      break;
  until (false);
  writeln('Самолёт загружен');
end.

Машина Поста имеет шесть операций. Для удобства записи алгоритма введем следующие обозначения:
-> шаг влево;
<- шаг вправо;
V поставить отметку;
Х стереть отметку;
?a;b проверить наличие отметки. Если её нет, переход на а, иначе переход на b;
! останов
Пример записи команды:
6. V 11
Эта команда имеет номер 6. В ней проставляется отметка, после чего делается переход к команде 11.

Алгоритм "2 ИЛИ НЕ" реализует логическую функцию "ИЛИ" с отрицанием. Её значение истинно только тогда, когда оба операнда ложны.
На первом рисунке представлена блок-схема, которая составлена по современным канонам, когда операция перехода в явном виде не используется. На втором рисунке сделано упрощение за счет исключения повторяющихся фрагментов и проставлены номера команд при реализации алгоритма для машины Поста.
Сама программа имеет следующий вид:
1. ? 2 ; 7
2. -> 3
3. ? 4 ; 8
4. -> 5
5. ? 6 ; 11
6. V 11
7. -> 8
8. -> 9
9. ? 11 ; 10
10. X 11
11. !