Дано целое число в двоичной системе счисления, т.е. последовательность цифр 0 и 1. Составить программу перевода этого числа в восьмеричную систему счисления.

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016function BinToOct(s:string):string;// переводит двоичную триаду в восьмеричную цифруbegin  case s of  '000':Result:='0';  '001':Result:='1';  '010':Result:='2';  '011':Result:='3';  '100':Result:='4';  '101':Result:='5';  '110':Result:='6';  '111':Result:='7';  endend;begin  var s2:=ReadlnString('Введите целое двочное число');  var k:=s2.Length mod 3;  if k<>0 then s2:=(3-k)*'0'+s2; // дополнить до кратной 3 длины  var s8:='';  for var i:=1 to s2.Length div 3 do    s8:=s8+BinToOct(Copy(s2,3*i-2,3));  Writeln(s8);end.ПримерВведите целое двочное число 101011000012541