Question

п»їprogram Code;
var n: integer;
//----подпрограмма--—
procedure Bin(n: integer);
var k: integer;
begin
k:= 4096;
while k > 0 do begin
write(n div k);
n:= n mod k;
k:= k div 2;
end
end;
//---основная программа--—
begin
write ( 'Введите натуральное число: ' );
read ( n );
write ( 'Двоичный код: ' );
Bin ( n );
writeln;
end.

Протестируйте программу на Паскаль( прилагается).
1)Что она выполняет?
2) Добавьте процедуру Oct, которая будет переводить число из десятичной системы счисления в восьмеричную. Например, при вводе числа 121 должно получится число 171(8). Программу или скриншот пришлите на почту.