Сложение чисел в системе счисления с основанием P

var
  i:integer;
  s:string;
begin
  readln(i);
  str(i,s);
  writeln(s)
end.

...
for i:=length(s) to 1 do
...

Const
  Raz=10;  { Разрядность вычислений }
  alphavit : array[0..35] of Char = ('0','1','2','3','4','5','6','7','8','9',
                                     'A','B','C','D','E','F','G','H','I','J',
                                     'K','L','M','N','O','P','Q','R','S','T',
                                     'U','V','W','X','Y','Z');
Var
  a,b : Longint;
 
Function NTC(N : Byte) : Char;
Begin
  If N in [0..35] then
    NTC:=alphavit[N];
End;
 
Function CTN(C : Char) : Byte;
Var ii : Byte;
Begin
  CTN:=0;
  For ii:=0 to 35 do
    If alphavit[ii]=C then
    Begin
      CTN:=ii;
      Break;
    End;
End;
 
Function IntToN(A : Longint) : String;
Var
  S : String;
  n : Longint;
Begin
  S:=''; n:=A;
  While n>0 do
  Begin
    S:=Chr(48+(n mod Raz))+S;
    n:=n div Raz;
  End;
  IntToN:=S;
End;
 
Function k10(k : Byte) : Longint;
Begin
  If k>0 then k10:=Raz*k10(k-1)
  else k10:=1;
End;
 
Function NToInt(S : String) : Longint;
Begin
  If Length(S)>1 then
    NToInt:=CTN(S[1])*k10(Length(S)-1)+NToInt(Copy(S,2,Length(S)-1))
  else
    NToInt:=CTN(S[1]);
End;
 
Function N1p(Var C : Char; cc : Char) : Char; {result  - перенос на следующий разряд}
Begin
  N1p:='0';
  If CTN(C)+CTN(cc)>Raz-1 then
  Begin
    N1p:='1';
    C:=NTC(CTN(C)+CTN(cc)-Raz);
  End
    else C:=NTC(CTN(C)+CTN(cc));
End;
 
Function NPlus(x1,x2 : String) : String;
Var A,B : String;
  k,k0 : Char;
  ii : Byte;
Begin
  k0:='0';
  If Length(x1)<Length(x2) then
  Begin
    A:='0'+x2; B:=x1;
  End
    else
    Begin
      A:='0'+x1; B:=x2;
    End;
  While Length(B)<Length(A) do B:='0'+B;
  For ii:=Length(A) downto 1 do
  Begin
    k:=N1p(A[ii],B[ii]);
    If N1p(A[ii],k0)<>'0' then k:='1';
    k0:=k;
  End;
  While A[1]='0' do Delete(A,1,1);
  NPlus:=A;
End;
 
Begin
{ Demo }
 { Writeln(k10(2));
  Writeln(IntToN(12345));
  Writeln(IntToN(NToInt('12345')));
  Writeln(NTC(35));
  Writeln(CTN('F'));}
  Writeln(NPlus('99','2'));
  Writeln(NPlus('8','3'));
  Writeln(NPlus('88888','2'));
{ /Demo }
End.