var N10, k, NP: integer; p:1..9; begin

var N10, k, NP: integer;

p:1..9;

begin

writeln(p);

readln(p);

writeln(N10);

readln(N10);

k:=1;

NP:=0;

while N100 do begin

NP:=NP+(N10 mod p)*k;

N10:=N10 div p;

k:=k*10;

writeln(NP);

end;
end.как сделать что-бы эта ХРЕНЬ стала переводить из десятичной в двоичную, троичною....