На вход в первой строке подается целое число 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.