RU: Напишите процедуру, которая выводит на экран переданное ей число в негадвоичной системе счисления, основание которой равно (–2 Например, 1011(-2)=1•(-2)3 +0•(-2)2 +1•(-2)1 + 1•(-2)0 =-8-2+1=-9 UKR: Напишіть процедуру, яка виводить на екран передане їй число в негадвоічной системі числення, заснування якої дорівнює (-2). наприклад, 1011 (-2) = 1 • (-2) 3 + 0 • (-2) 2 + 1 • (-2) 1 + 1 • (-2) 0 = -8-2 + 1 = -9

Для того, чтобы эта программа заработала надо добавить перед описанием процедуры F следующую строчку:
procedure G(n: integer);forward;
Так как в процедуре F есть вызов процедуры G описанной дальше по тексту программы.
После исправления кода и запуска программы с F(12) получим 17 звездочек. По шагам это будет выглядеть так:

 Вызов процедуры F и выполнение
* n = 12
* n = 12
Вызов процедуры G и выполнение
* n = 11
* n = 11
Вызов процедуры F и выполнение
* n = 9
* n = 9
Вызов процедуры G и выполнение
* n = 8
* n = 8
Вызов процедуры Fи выполнение
* n = 6
* n = 6
Вызов процедуры G и выполнение
* n = 5
* n = 5
Вызов процедуры F и выполнение
* n = 3
* n = 3
Вызов процедуры G и выполнение
* n = 2
* n = 2
Вызов процедуры F и выполнение
* n = 0