На вход в первой строке подается целое число D (2 ≤ D ≤ 9), а во второй строке — текст, изображающий запись целого положительного числа A в системе счисления с основанием D. Вывести число A в десятичной системе счисления.
uses PT4Exam;
var
a, num, k, m: integer;
b: string;
begin
Task('ExamBegin8');
Readln(a);
Readln(b);
num := 0; m := 1;
while length(b) > 0 do
begin
k := StrToInt(Copy(b, length(b), 1));
Delete(b, length(b), 1);
num := num + k * m;
m := m * a;
end;
Write(num);
end.
