Проект «Распиливание бруска заданной величины на равные части»
Можно ли распилить брусок длиной N (2<N< 100) метров на м
(2<M< 20) равных частей, где число частей на единицу больше, чем
число разрезов. Если невозможно распилить брусок на равные части,
разделите его на куски с разницей длин не больше одного метра.​

Еще одно очень красивое и очень странное решение через словари.

n = int(input())

print({1<=n<=4: "Начальная школа",

     5<=n<=9: "Среднее звено",

     10<=n<=11: "Старшее звено"}[True])

Здесь мы создаем неименованный словарь, который в качестве ключа использует условное выражение, а в качестве значения - соответствующую этому выражению строку.

Когда мы тут же передаем ему в качестве ключа True, словарь начнет проверять ключи и вернет именно то значение, у которого выражение-ключ было истинным.

Const
  n = 20;

var
  x: array[1..n] of integer;
  i: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  i := n;
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:4);
  end;
  Writeln;
  while (i >= 1) and (x[i] >= 0) do i := i - 1;
  if i > 0 then
    Writeln('Последний отрицательный элемент x[', i, ']=', x[i])
  else
    Writeln('Нет отрицательных элементов')
end.

Тестовое решение:
Элементы массива
   5  -9 -32 -48  33   2 -41  24  31 -31 -48 -24 -17  45 -41 -23  -1  38  45  14
Последний отрицательный элемент x[17]=-1