Синонимическая избыточность if; else if; else; - Pascal

Формулировка задачи:

Уверен, что repeat until; for; while вполне могут быть заменены одним while. Стремлюсь к простоте, однообразию, однозначности. В последнее время время как-то пользуюсь исключительно цепочкой из ряда if-ов , рассматривая его как фильтр-решето, улавливающий только "нужную рыбу"и отправляющий ее на определенную линию для дальнейшей обработки. Все остальное просто как шлам проваливается вниз, без всяких else. Может логика программ недостаточно сложная, но создалось впечатление, что else if; else; - элементы языка избыточные, некая формальная или антропоморфная конструкция, без которой вполне можно обойтись. Буду признателен, если подтвердите или опровергнете данное суждение.

Решение задачи: «Синонимическая избыточность if; else if; else;»

Листинг программы

  if      x<-5 then WriteLn(-4)
  else if x<-3 then WriteLn(-3)
  else if x<0  then WriteLn(-2)
  else if x<3  then WriteLn(-1)
  else              WriteLn(0);
 
  repeat
    Write(n mod 10); n:=n div 10;
  until n=0; WriteLn;

Объяснение кода листинга программы

Создается условная конструкция:
- Переменная x используется для проверки условий.
- Если x меньше -5, выводится -4.
- Иначе, если x меньше -3, выводится -3.
- Иначе, если x меньше 0, выводится -2.
- Иначе, если x меньше 3, выводится -1.
- В остальных случаях выводится 0.
Затем выполняется цикл repeat:
- Выводится значение переменной n по модулю 10.
- Значение n делится на 10.
- Цикл повторяется до тех пор, пока n не станет равным 0.
- После окончания цикла выводится новая строка.