Составить программу в Паскаль.Очень нужна ваша

pascal

Объяснение:

const

 s: string[8] = '01234567';

var

 d, n: integer;

 o: string;

begin

 Write('Введите число: ');

 ReadLn(n);

 d := n;

 while d > 0 do

 begin

   o := s[d mod 8+1] + o;  

   d := d div 8;

 end;  

 WriteLn(n, '(10) = ', o,'(8)');

end.