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

тут можно по-разному решать.. .
если входные значения заданны строками типа
string x := "1111011011110111";

или когда числа заданы числом, т. е. так как они и представляются системой

integer x:= 546756;

подходы (вернее промежуточные действия) немного разные

определитесь, как у вас звучит задание