program DecimalToOctal;

var
decimalNum, quotient, remainder, i: Integer;
octalNum: String;

begin
// Input decimal number
write('Enter a decimal number: ');
readln(decimalNum);

// Initialize variables
quotient := decimalNum;
octalNum := '';
i := 1;

// Convert decimal to octal
repeat
remainder := quotient mod 8;
octalNum := IntToStr(remainder) + octalNum;
quotient := quotient div 8;
until quotient = 0;

// Output the octal number
writeln('Octal equivalent: ', octalNum);
end.