Двоичное кодирование числавой информации

Задается числами 1 и 0

Отношение r на множестве х называется рефлексивным, если о каждом элементе множества х можно сказать, что он находится в отношении r с самим собой: хrх. если отношение рефлексивно, то в каждой вершине графа имеется петля. и обратно, граф, каждая вершина которого содержит петлю, представляет собой граф рефлексивного отношения. примерами рефлексивных отношений являются и отношение «кратно» на множестве натуральных чисел (каждое число кратно самому себе), и отношение подобия треугольников (каждый треугольник подобен самому себе), и отношение «равенства» (каждое число равно самому себе) и др. существуют отношения, не свойством рефлексивности, например, отношение перпендикулярности отрезков: ab, ba (нет ни одного отрезка, о котором можно сказать, что он перпендикулярен самому себе). поэтому на графе данного отношения нет ни одной петли. не обладает свойством рефлексивности и отношение «длиннее» для отрезков, «больше на 2» для натуральных чисел и др.

Var a: integer; begin       readln(a);       while (a > = 3) do       begin             if (a > = 4) then             begin                 writeln(a, ' - 4 = ', a - 4);                 a : = a - 4;             end;             if (a > = 3) then             begin                 writeln(a, ' - 3 = ', a - 3);                 a : = a - 3;             end;       end; end.так?