если на вход процедуре передать число -10, то на экране должно быть выведено число 11010.

procedure PrintNegativeBinary(num: integer);
var
remainder: integer;
begin
if num = 0 then
Write('0')
else
begin
while num <> 0 do
begin
remainder := num mod -2;
if remainder < 0 then
remainder := 2 + remainder;
Write(-remainder);
num := (num - remainder) div (-2);
end;
end;
end;
// Пример использования:
var
number: integer;
begin
number := -10;
Write('Число в негадвоичной системе: ');
PrintNegativeBinary(number);
end.