Перевести число 123 в восьмиричную систему исчисления(а8)

Перевод числа 123 из десятичной системы счисления в восьмеричную  

var n,m,i,s1,s2: integer; p1,p2,p: real; a,b: array[1..10] of integer; beginwrite('n='); read(n); write('m='); read(m); writeln; for i: =1 to n do beginwrite('a[',i,']= '); readln(a[i]); end; for i: =1 to m do beginwrite('b[',i,']= '); readln(b[i]); end; writeln; s1: =0; for i: =1 to n do s1: =s1+a[i]; p1: =s1/n; p1: =int(p1); writeln('srednee arifmeticheskoe massiva a=',p1); s2: =0; for i: =1 to m dos2: =s2+b[i]; p2: =s2/m; p2: =int(p2); writeln('srednee arifmeticheskoe massiva b=',p2); p: =p1+p2; if p1=p2 then write('a=b') else beginif p1> p2 then write('a> b') else write('a< b'); end; end.

 

  uses   crt;   var   a : array [ 1.. 20 , 1.. 20 ] of real;   i , j , k , n , s : integer;   begin   clrscr;   write ( 'введите размер матрицы: ' );   read (n );   for i : = 1 to n do     for j : = 1 to n do     begin       write ( 'a[' , i , ',' , j , ']= ' );       readln (a [i , j ] );     end;   writeln;   writeln;   writeln ( 'исходная матрица ' , n , 'x' , n , ': ' );   for i : = 1 to n do   begin     for j : = 1 to n do       write (a [i , j ] : 2 : 0 , ' ' );     writeln;   end;   k : = 0;   for i : = 1 to n do   begin     for j : = 1 to n do     begin       if a [i , j ] = 0 then       begin         k : = k + 1;         s : = s + 1;       end;     end;     if k = n then writeln (i , ' строка состоит из нулей! ' );     k : = 0;   end;   if s = 0 then writeln ( 'в матрице нет нулевых строк' ); end.