Написать программу в АБС паскале: написать программу и процедуру перевода из десятичной системы в 8-ичную.

Предыдущий
вопрос Следующий
вопрос

program DecimalToOctal;

var
num, octalNum: Integer;

procedure DecimalToOctal(num: Integer);
begin
if num < 8 then
Write(num)
else
begin
DecimalToOctal(num div 8);
Write(num mod 8);
end;
end;

begin
Write('Enter a decimal number: ');
Readln(num);

Write('Octal equivalent: ');
DecimalToOctal(num);
Writeln;
end.