Ответ:

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.

Объяснение: