Помогите пожалуйста!!!! Нужно сделать программу перевода чисел из 8-ой системы счисления в 2-ую систему счисления...На Pascal

Какие баллы? Я уже получил полагающиеся за решение 10 баллов.

а можно как то ещё перевести?

Не знаю даже, но мне ничего не нужно\)))

Блин, Спасибо Вам Большое Вы очень помогли!!!

Это обычное для данного Сервиса решение задания. Успехов!

function f8t2(s8:string):string;const  m:array['0'..'7'] of string=      ('000','001','010','011','100','101','110','111');  m1:array['1'..'7'] of string=      ('1','10','11','100','101','110','111');var  s:string;  i:integer;begin  s:=m1[s8[1]];  for i:=2 to Length(s8) do s:=s+m[s8[i]];  f8t2:=send;var  s:string;begin  Write('Введите восьмеричное число: '); Readln(s);  Writeln('В двоичной системе: ',f8t2(s))end.Тестовое решение:Введите восьмеричное число: 15740В двоичной системе: 1101111100000