На Паскале составить программу перевода десятичного числа в 8-ое.

var a : longint;

function DEC_VOS(x:longint):string;
const digits:array [0..7] of char = ('0','1','2','3','4','5','6','7');
var res:string; d:0..7;
begin
res:='';
while (x<>0) do begin
d:=x mod 8;
x:=x div 8;
res:=digits[d]+res;
end;
DEC_VOS:=res;
end;

begin { основная программа }
readln( a );
writeln( DEC_VOS(a) );
readln;
end.