Переведення чисел з однієї системи числення в іншу

var
A,P1,P2,K,R : integer;
begin
Read (A,P1,P2);//A число Р1 система с которой происходит перевод Р2 в какую переводится
K:=1;
R:=0;
while (A>0) do
  begin
    R:=R +(A mod P2)*k;
    K:=K*p1;
    A:= A div P2;
  end;
Write (R);
end.