Ответ:
uses crt;
const zn:string[8]='01234567';
function DecToOct(n:longint):string;
var s:string;
begin
s:='';
while n>0 do
begin
s:=zn[n mod 8+1]+s;
n:=n div 8;
end;
DecToOct:=s;
end;
var d:longint;
begin
clrscr;
write('Число в системе 10=');
readln(d);
write(' В системе 8 =',DecToOct(d));
readln
end.
Объяснение: