Перевести десятичное число 267810 в троичную систему счисления

267810/3=89270 остаток 0 89270/3=29756  ост.2 29756/3=9918 ост.2 9918/3=3306 ост.0 3306/3=1102 ост.0 1102/3=367 ост.1 367/3=122 ост. 1 122/3=40 ост. 2 40/3=13 ост. 1 13/3=4 ост 1 4/3=1 ост1 267810₁₀=111121100220₃

//pascal abc.net v3.1 сборка 1172 var   n, m: integer; begin   read(n, m);   repeat       writeln('текущее значение n: ', n, ' ,до m: ', m - n);       inc(n);   until n = m;   writeln('завершено, n=m'); end. пример ввода: 12 20 пример вывода: текущее значение n: 12 ,до m: 8 текущее значение n: 13 ,до m: 7 текущее значение n: 14 ,до m: 6 текущее значение n: 15 ,до m: 5 текущее значение n: 16 ,до m: 4 текущее значение n: 17 ,до m: 3 текущее значение n: 18 ,до m: 2 текущее значение n: 19 ,до m: 1 завершено, n=m

106function f(x: integer): integer; var      l, m: integer; begin      l : = x - 12;       m : = x + 12;       while l < > m do              if l > m then                      l : = l - m              else                      m : = m - l;       f : = l; end; begin      var x : = 100;       var r : = 0;       repeat              x : = x + 1;               r : = f(x);       until r = 2;       writeln(x); end.