Program zd1; uses crt; var k,v,a,m,i,s:integer; n:string; f:text; f1:text; begin clrscr; assign(f,'C:\pascal\a.txt'); reset(f); read(f,k); write(k,' '); read(f,m); write(m,' '); readln(f); readln(f,n); writeln; writeln(n,' '); assign(f1,'C:\pascal\a.out'); rewrite(f1); a:=0; v:=1; for i:=1 to length (n) do begin n[i]:= Upcase(n[i]); if (n[i]>'0') and (n[i]<'9') then a:=a+(ord(n[i])-48)*v; if (n[i]>'A') and (n[i]<'9') then a:=a+(ord(n[i])-55)*v; v:=v*k; end; s:=a mod m; writeln(s); readkey; close(f); close(f1); End.