Помогите пожалуйста.
Нужно написать программу в "Паскале" для перевода из любых систем исчисления в десятичную.

спасибо большое, вы мне очень помогли.

Пожалуйста

можно и по другому, но это уже не ажно

Можно, я не спорю, способом тысяча. А строку я использовал лишь потому, что число в двоичной системе может иметь большой размер.

var  n, k, i: integer;  s: string;begin  write('Введите число: ');  read(s);  write('Введите исходную систему счисления: ');  read(k);  for i := 1 to length(s) do    n := n * k + ord(s[i]) - 48;  write(s, '(2) = ', n, '(10)');end.Пример работы программы:Введите число: 101000111000111Введите исходную систему счисления: 2101000111000111(2) = 20935(10)